algebra3a 

(* Expand[polinomio]   sviluppa polinomio *)
(* Expand[polinomio,k] sviluppo limitato a var k *)

Expand[(x+y)^3]           (* sviluppo totale*)
Expand[(x+1)^2 (y+1)^2,x] (* rispetto a x *)
Expand[(x+1)^2 (y+1)^2,y] (* rispetto a y *)
Expand[(x+1)^2 (y+1)^2]   (* totale *)

(* Factor[polinomio]   scompone in fattori  *)       *)
(* Factor[polinomio,GaussianIntegers->True] *)
Factor[k^2-9]
Factor[k^2+1,GaussianIntegers->True]
Factor[k^2+2I,GaussianIntegers->True]
(* Simplify[polinomo]   semplifica *)
x=.
Simplify[x^2+2x+1]
Simplify[x^4-9]
(* Collect[polinomio,fattore] raccoglie fattor comune *)
(* Collect[polinomio,{f1,f2)] due fattori *)

Collect[a x+x+c,x]
Collect[a x+x+c y+y,{x,y}]


(* FactorTerms[polinomio]  raccoglie fattore numerico*)
(* FactorSquareFree[polinomio]  *)

FactorTerms[5*x + 10*y -20]
FactorSquareFree[Expand[(1+x)^2 (2+x)(3+x)]]

torna a inizio