Ombrer un graphe entre deux courbes

News, programmes, tutoriaux, forum sur les calculatrices TI, Casio, NumWorks... !
https://tiplanet.org/forum/
For(A,1,dim(L2)
For(B,1,5
Line(L2(A)+B,L3(A), L2(A)+B, L1(A)
End
End
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
Steeve59 wrote:Voici un bout de programme si ça peut aider
- Code: Select all
Prompt L,C,D,E,I,N
C*π/N→X
360/N→Y
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
(√(((D/2)²-((E)+C/2cos(θ))²)→G
G/sin(I)→V
((Ltan(I)-(C/2sin(θ)))/tan(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-√(((D/2)²-((E)+C/2sin(θ))²)→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
Steeve59 wrote:ton code est vraiment pas mal il est même mieux que ce que j'essayer de faire