The University of Jordan                           Math 473              Written: H.W. 1    
Department of Mathematica                                          due   30/10/2014                                                                   

Student Name:                                               Student No.

Q1

Correct all mistakes in each of the following (if any)

(* This is an example of comments* )

adnan.awad=100

a=5,b=7;

7=6

O=20

12=x

3(x+6)==3x+18

sin[30 °]

list1={6,8,7};
liSt1

List={1;2;3;4}

list0={1,7,6,0,9};
list0[1]

list2=[1,2,3,4]

Plot[Sin[x],x]

Integrate[Sin[x],x,0,5}]

Integrate[Sin[x],{1,10}]

ListPlot[3,5]

Plot[ a x^3,{x,3,5}]

Sqrt[4, 5]

Log[a, b, c]

Solve[Sin[x]==Exp[x],x]

Clear[s,x,k,n]
s=Sum[Exp[k x],{k,n}];
s/.x->0

Sum[{3,6,8,5,2}]

cases[Rang[5,30,4},Integers]

Selekt[RandomReals[{2,15},30,#>7]

f:=3 -x^2;
f[2]

Graphics[Circle[{5,3},{7,-3}]]

Graphics[Line[{5,3},{7,-3}]]

Q2

Write the Mathematical problem that can be solved  by each of the following Mathematica command line

Apart[(3x^3-5x+1)/((x-4)(7-3x))]

PolynomialQ[x^3-4/x+12,x]

RandomInteger[{5,10},{3,4}]

ExtendedGCD[ 15, 36]

IntegerPartitions[30,5]

PowersRepresentations[1729,2,3]

Graphics[Circle[{-5,3},{7,3}]]

Q3

What  are the diferences between elements in each of the following pairs

=    and   :=

= =    and  ===

Composition    and  Compositions

/.      and    /;

Sin[Pi/3]   and  Sin[Pi/3];

(Sqrt[5])         and     (Sqrt[5.])

Head        and     Domain

Integer      and     IntegerQ

EvenQ      and   _?EvenQ

For     and    While

Do       and    For

NSove    and   FindRoot

Graphics     and     Plot

Plot    and    PlotRegion