Programming Project 10 Solutions

1.
FnOff
ClDrw
0 --> X
1 --> DX
320 --> B
120 --> P
While X<300
(.05 - .0002*P)*B --> B1
(-.06 + .0003*B)*P --> P1
B + B1*DX --> B
P + P1*DX --> P
X + DX --> X
Line(X,B,X,B)
Line(X,P,X,P)
End

3a.
FnOff
ClDrw
For(K, .04, .08, .01)
0 --> X
1 --> DX
320 --> B
120 --> P
While X<300
(.05 - .0002*P)*B --> B1
(-K + .0003*B)*P --> P1
B + B1*DX --> B
P + P1*DX --> P
X + DX --> X
Line(X,P,X,P)
End
End

3b.
FnOff
ClDrw
For(K, .0002, .0005, .0001)
0 --> X
1 --> DX
320 --> B
120 --> P
While X<300
(.05 - .0002*P)*B --> B1
(-.06 + K*B)*P --> P1
B + B1*DX --> B
P + P1*DX --> P
X + DX --> X
Line(X,P,X,P)
End
End