"
UNIVERSIDADE FEDERAL RURAL DE PERNAMBUCO
RECIFE, 23 DE MARÇO DE 2009
ALUNO: DALTON FRANCISCO DE ARAÚJO
DISCIPLINA: INTRODUÇÃO À MODELAGEM COMPUTACIONAL 2009.1
PROFESSOR: JONES ALBUQUERQUE

Synbolic Calculations
"

"Exercise 3.1 Together and Apart "
Clear[x]
expr=Sum[1/(k+x),{k,5}]
expr2=Together[expr]
Apart[expr2]
"--------------------------------------------------------------------"

"Exercise 3.2 Solving equations"
eq={x^2+y==c,x+by==0}
sol=Solve[eq,{x,y}]
expr3=eq/.sol
Simplify[expr3]
"--------------------------------------------------------------------"

"Exercise 3.3 Integration and differentiation"
f=Sqrt[1+Exp[x]]
integral=Integrate[f,x]
derivada=D[integral,x]
Simplify[derivada]
"--------------------------------------------------------------------"

"Exercise 3.4 Solving linear equations"
m=(b IdentityMatrix[4]-{{0,1,0,0},{0,0,1,0},{0,0,0,1},{1,0,0,0}});
eq=Thread[m.{x1,x2,x3,x4}=={1,0,0,0}]
Solve[eq,{x1,x2,x3,x4}]
"--------------------------------------------------------------------"

"Exercise 3.5 Alternatives to Simplify "
expr=Sqrt[x+y]/(1+Sqrt[x+y])+(1-Sqrt[x+y])/(1-xxy)
Simplify[expr]
"--------------------------------------------------------------------"