ClrList [maroon]1[/maroon]
ClrList [maroon]2[/maroon]
ClrList [maroon]3[/maroon]
[maroon]1[/maroon]→C
[maroon]0[/maroon],[maroon]1[/maroon]→E
[maroon]0[/maroon]→D
[maroon]0[/maroon]→I
[maroon]0[/maroon]→B
[gray]"Fonction"[/gray]?→Y1
[b][blue]For[/blue][/b] -50→A [b][blue]To[/blue][/b] [maroon]50[/maroon] [b][blue]Step[/blue][/b] [maroon]5[/maroon]
B+1→B
d/dx(Y1,A)→List [maroon]1[/maroon][B]
[b][blue]Next[/blue][/b]
[b][blue]For[/blue][/b] [maroon]1[/maroon]→B [b][blue]To[/blue][/b] [maroon]20[/maroon]
[b][blue]If[/blue][/b] List [maroon]1[/maroon][B] * List [maroon]1[/maroon][B+1]=<0 And List [maroon]1[/maroon][B
[b][blue]Then[/blue][/b]
B→List [maroon]2[/maroon][C]
B+1→List [maroon]2[/maroon][C+1]
C+2→C
[b][blue]IfEnd[/blue][/b]
[b][blue]Next[/blue][/b]
[b][blue]For[/blue][/b] [maroon]1[/maroon]→I [b][blue]To[/blue][/b] (dim List [maroon]2[/maroon])-1 [b][blue]Step[/blue][/b] [maroon]2[/maroon]
D+1→D
-50+((List [maroon]2[/maroon] [I])-1)*5→U
-50+((List [maroon]2[/maroon] [I+1])-1)*5→V
(U+V)/2→W
[b][blue]While[/blue][/b] V-U>E
[b][blue]If[/blue][/b] d/dx (Y1, U)⇒d/dx (Y1, W)<0
[b][blue]Then[/blue][/b] W→V
(U+V)/2→W
[b][blue]Else[/blue][/b] W→U
(U+V)/2→W
[b][blue]IfEnd[/blue][/b]
[b][blue]WhileEnd[/blue][/b]
(U+V)/2→ List [maroon]3[/maroon] [D]
[b][blue]Next[/blue][/b]