()
Prgm
ClrIO:ClrHome:ClrGraph
Local at,fct,e,t,ta,n,u,v,o
Loop
Dialog
Title "Second V.2.00"
Request "f(x)=",fct
DropDown "Menu :",{"Solutions","Limites","Derivée","Graph","Primitive","Tangente","Quitter"},n
EndDlog
ClrIO:If n=1 Then
Dialog:Title "Solutions de f"
Request "Solutions pour x= ",o
EndDlog
Disp "****************"
Disp " Solutions de f"
Disp "****************"
Disp " "
Disp "Soit f(x)="&fct
Disp "f admet les solutions suivantes"
Disp " "
Disp solve(expr(fct)=expr(o),x)
Pause
ClrIO:ElseIf n=2 Then
Dialog:Title "Limites"
Request "Borne supérieure ",e
Request "Borne inférieure ",t
EndDlog
Disp "**************"
Disp " limites de f"
Disp "**************"
Disp " "
Disp "Soit f(x)="&fct
Disp "Limite de f pour x→"&e
Disp limit(expr(fct),x,expr(e))
Disp "Limite de f pour x→"&t
Disp limit(expr(fct),x,expr(t))
Pause
ElseIf n=3 Then
Dialog
Title "Domaine de définition"
Request "Borne inférieure ",v
Request "Borne supérieure ",u
EndDlog
Disp "**************"
Disp " derivée de f"
Disp "**************"
Disp " "
Disp "Soit f(x)="&fct
Disp "f est définie sur "&"]"&string(v)&";"&string(u)&"["
Disp "Donc f a pour dérivée :"
Disp " "
Disp "f'(x)="&string((expr(fct),x))
Pause
ElseIf n=4 Then
ClrGraph:ClrDraw:ZoomStd
DrawFunc expr(fct)
PxlText "y="&fct,5,5
Pause
ElseIf n=5 Then
Disp "****************"
Disp " Primitive de f"
Disp "****************"
Disp " "
Disp "Soit f(x)="&fct
Disp "f admet la primitive suivante :"
Disp " "
Disp "F(x)="&string(∫(expr(fct),x))
Pause
ElseIf n=6 Then
Dialog
Title "Tangente"
Request "Au point xo=",ta
EndDlog
Disp "**************"
Disp " Tangente à f"
Disp "**************"
Disp " "
Disp "Soit f(x)="&fct
Pause
Disp "L'équation de la tangente en xo est :"
expr(ta)→ti
y=expand(taylor(expr(fct),x,1,ti),x)→at
Disp y=expand(taylor(expr(fct),x,1,ti),x)
Pause
ClrDraw:ZoomStd:DrawFunc expr(fct)
DrawFunc expand(taylor(expr(fct),x,1,ti),x)
PxlText " "&string(at),5,5
Pause
ElseIf n=7 Then
ClrIO:DispHome:Stop
EndIf:EndLoop:EndPrgm