Make your own free website on Tripod.com

Dessin

Version: 1.0
Author: Thomas Perraudin thomas@perraudin.net
you should visit my homepage at http://www.multimania.com/spectre3
Size: not so big , you can choose the options
Model: fx 6990
This is a series of program you should type in your calculator. The main part of the program is [dessin], [D1] and [D2]. I am sorry the program is in French but you can translate.
Be patient and learn how to use it and you will be able to draw fabulous pictures.


Notations:
-> Single arrow on the keyboard
=> Double arrow
_ Display, -Disp-
<= Less or equal
>= Greater or equal
=/= Not equal
/ Division or fraction
I have written my variables in small characters so make differences between 1 and l (L) or between 0 (zero) and o.

DESSIN

[dessin]

Lbl A

Plot 0,0

Plot 0,0

Line-disp-

"nouveau"

"dessin"

"oui 1,non 2"

? a

a=1=>ViewWindow 1,100,0,1,60,0

Lbl 1

Prog "D1"

c 4=>Plot-disp-

x a

y b

c=1=>Prog "CERCLE"

c=2=>Prog "RECT"

c=3=>Prog "TRAIT"

c=4=>Prog "D2"

c=5=>Prog "POLY"

c=6=>Prog "ML"

c=7=>Prog "ELIP"

c=8=>Goto 1

c=9=>goto A

goto 1

 

 

[cercle]

"rayon..."-disp-

Plot a,b-disp-

((x-a)2+(y-b) 2) t

0 z

Lbl 1

Tcos z+a g

Tsin z+b h

Plot g,h

Z+5 z

Z=5=>Goto 1

g>2=>h>2=>g<99=>h<59=>Line

z 363=>Goto 2

Goto 1

Lbl 2

Plot 0,0

Plot 0,0

Line-disp-

 

 

[rect]

"autre bout.."-disp-

Plot a,b-disp-

x g

y h

Plot a,b

Plot g,b

Line

Plot g,h

Line

Plot a,h

Line

Plot a,b

Line-disp-

 

 

[trait]

"a… "-disp-

Lbl 1

Plot a,b-disp-

x g

y h

Plot a,b

Plot g,h

Line-disp-

 

 

[poly]

"calcule :1"

"main :2"

? j

j=1=>Prog "P2"

j=1=>Goto 2

0 w

"nombre de"

"cotes " ? z

Lbl 1

W+1 w

Plot x,y-disp-

Line

If w=z-1

Then Plot x,y

Line

Plot a,b

Line-disp-

IfEnd

W=z-1=>Goto 2

Goto 1

Lbl 2

 

 

[P2]

"rayon…"-disp-

Plot a,b-disp-

((x-a)2+(y-b)2) t

"nombre"

"de cotes "? v

360 v w

0 z

Lbl 1

Tcos z+a g

Tsin z+b h

Z=0=>Plot g,h

Plot g,h

Line

Z+w z

z>360=>Goto 2

Goto 1

Lbl 2

Plot g,h

Line-disp-

 

 

[D2]

ClrText

"polygone :5 mainleve :6 elipse :7"

"autres :8"

? c

c 8=>Plot -disp-

x a

y b

 

 

[D1]

ClrText

"cercle :1"

"rectangle :2 trait :3"

"autres :4"

? c

 

 

 

 

[ML]

"traits :1"

"points :2"

? u

u=2=>
Prog "PTS"

Lbl 1

Plot x,y-disp-

Line

Goto 1

 

 

[elip]

"bout…"-disp-

Plot a,b-disp-

x c

y d

Abs (a-c) e

Abs (b-d) f

0 z

Lbl 1

Ecos z+a g

Fsin z+b h

Z=0=>Plot g,h

Plot g,h

g>2=>h>2=>g<99=>h<59=>Line

z+5 z

z>360=>Goto 2

Goto 1

Lbl 2

Plot g,h

Line-disp-

 

 

[pts]

0 a

0 b

Lbl 1

Plot x,y-disp-

C=1=>Line

0 c

X=a=>y=b=>1 c

C=1=>Line

x a

y b

Goto 1



END