Number 1

> restart;

> ?plot

> plot(tan(x), x=-infinity..infinity);

cool, you can plot to infinity!

> rose := (x,y,s)->CURVES(2*s*[ [3.2,0],[3.2,10.8],[2.5,10.6],[1.8,10],[1.6,9.05],[2,8.27],[2.8,8],[2.8,6.5],[1.5,6.8],[.5,7.5],[0,8.2],[0,10],[.6,11],[1.3,11.9],[2.5,12.5],[5,12.5],[5.7,12.25],[6.8,11.6],[7.5,10.8],[8,9.8],[8,8.4],[7.7,7.5],[7,6.5],[9,3],[7,3],[5.5,6],[5,5.8],[5,1.5],[3.2,0] ] + 2*s*[ [x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y] ]
,COLOR(HUE,1)):

> rosein := (x,y,s)->CURVES(2*s*[ [5,7.6],[5,10.8],[5.8,10.4],[6.4,9.7],[6.4,8.5],[6.2,8.1],[5.9,7.8],[5,7.6] ]+2*s*[[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y],[x,y] ],COLOR(HUE,1)):

>

Run this animation for a flashing rose logo, make sure you set it to loop to see the effect

> roseplot := PLOT( seq( rose(0,0,n),n=1..3) ,SCALING(CONSTRAINED),AXESSTYLE(BOX)):
roseinplot := PLOT( seq( rosein(0,0,n),n=1..3) ,SCALING(CONSTRAINED),AXESSTYLE(BOX)):
with(plots):
display({roseplot,roseinplot},insequence=true);

> ?COLOR

> ?PLOT

Number 2

> restart:

> with(linalg):

Warning, new definition for norm

Warning, new definition for trace

> nullvec := vector([R,T]):

> nullvec2 := vector([W,E]):

> sumLength := (nullvec,nullvec2) -> sqrt((nullvec[1]+nullvec2[1])^2+(nullvec[2]+nullvec2[2])^2);

> ans1:=sumLength([1,2],[8,4]);

> sumLength([2,3],[16,7]);

Number 3

> restart;

> with(linalg):

Warning, new definition for norm

Warning, new definition for trace

> offset:=vector([X,Y]):

> circlePoints := (r,offset) ->
[ evalf(
seq( [offset[1] + r*cos(2* Pi * i / 30), offset[2] + r*sin(2 * Pi * i / 30)],
i = 0 .. 30 ) ) ];

> DATA := circlePoints(5,[4,2]):

> plot(DATA,scaling=constrained);

> plot(circlePoints(1,[4,2]),scaling=constrained);

>

Number 4

> restart;

> house3 := (roofHeight, V) ->
CURVES( roofHeight * [ [0,2], [0,0], [3,0], [3,2], [0,2], [1.5,3], [3,2] ] + [V,V,V,V,V,V,V] );

> PLOT( seq( seq( house3(1, [5*j, 5*k]),
j = 0 .. k),
k = 0 .. 4),
SCALING(CONSTRAINED) );

>

Number 5

> restart;

> house3 := (roofHeight, V) ->
CURVES( roofHeight * [ [0,2], [0,0], [3,0], [3,2], [0,2], [1.5,3], [3,2] ] + [V,V,V,V,V,V,V] );

>

> PLOT( seq( seq( house3(.5, [2*j, 2*k]),
j = 1 .. k^2 ),
k = 0..6),
SCALING(CONSTRAINED) );

>

Number 6

> restart;

> house3 := (roofHeight, V) ->
CURVES( roofHeight * [ [0,2], [0,0], [3,0], [3,2], [0,2], [1.5,3], [3,2] ] + [V,V,V,V,V,V,V] );

> PLOT( seq( seq( house3(.5, [2*j, 2*k]),
j = 0 .. k),
k = 1 .. 6),
SCALING(CONSTRAINED) );

>

Number 7

> restart;

> house3 := (roofHeight, V) ->
CURVES( roofHeight * [ [0,2], [0,0], [3,0], [3,2], [0,2], [1.5,3], [3,2] ] + [V,V,V,V,V,V,V] );

>

> PLOT( seq( seq( house3(.5, [2*j-k, 2*k]),
j = 0 .. k),
k = 0 .. 4),
SCALING(CONSTRAINED) );

>

>

>