by Steeve59 » 01 Nov 2016, 14:42
Voici un bout de programme si ça peut aider
- Code: Select all
N+1→dim(L₁:0→L₁(N+1)
N+1→dim(L₂
N+1→dim(L₃
0→W
1→U
0→θ
0→Z
Lbl A
If 90-I
Then
Goto 10
Else
Goto 11
End
Lbl 10
(√......................)→G
G/sin(I)→V
(..........................(I→J
J-V→G
G→L₁(U
W→L₂(U
0→L₃(U
U+1→U
X+W→W
θ+Y→θ
If L₁(N+1)≠0
Then
AxesNAff
1→Xrés:10→Xgrad:10→Ygrad:1→PasTrace:1→X
15→Xmin:15→Ymin
(L₂(N+1)+15)→Xmax:max(L₁)+15→Ymax
DispGraph
Else
Goto A
Lbl 11
L-√.......................²)→G
G→L₁(U
W→L₂(U
0→L₃(U
U+1→U
X+W→W
θ+Y→θ
If L₁(N+1)≠0
Then
AxesNAff
1→Xrés:10→Xgrad:10→Ygrad:1→PasTrace:1→X
15→Xmin:15→Ymin
(L₂(N+1)+15)→Xmax:max(L₁)+15→Ymax
DispGraph
Else
Goto A
Last edited by Steeve59 on 01 Nov 2016, 15:06, edited 2 times in total.