Ti80.Online

Pour plus de programmes...
http://www.ti80.online.fr
ti80@citeweb.net
-----------------------------------

La calculatrice trace une courbe. Vous devez essayer de retrouver
les paramètres 'amplitude et vitesse' de cette courbe.

:RANDINT(1,30=>J)
:FUNC
:RADIAN
:-31(pi/12)=>XMIN
:31(pi/12)=>XMAX
:-10=>YMIN
:10=>YMAX
:0=>YSCAL
:0=>XSCAL
:"A*SIN (BX)"=>Y1
:RANDINT(1,5)=>A
:RANDINT(1,5)=>B
:PLOTSOFF
:FNOFF
:DISPGRAPH
:SEQ(XMIN+I*¤X,I,0,62,J)->L1 (¤=théta)
:Y1(L1)->L2
:PLOT1(%,L1,L2,°) (%=Stat Plot, Type, 1)
:DISPGRAPH
:PAUSE
:"C*SIN (DX)"->Y2
:LBL W
:CLRHOME
:INPUT "AMPLITUDE",C
:INPUT "VITESSE",D
:DISPGRAPH
:PAUSE
:IF C=A
:DISP "AMPLITUDE OK"
:IF C<A
:DISP "AMPLITUDE","TROP BASSE"
:IF C>A
:DISP "AMPLITUDE","TROP HAUTE"
:IF D=B
:DISP "VITESSE OK"
:IF D<B
:DISP "VITESSE","TROP BASSE"
:IF D>B
:DISP "VITESSE","TROP HAUTE"
:PAUSE
:IF ((C=A)*(D=B))=1
:STOP
:GOTO W