Ombrer un graphe entre deux courbes

[Steeve59]

Salut a tous,
J'aimerais savoir s'il est possible d'ombrer un graphe entre deux courbes. Les courbes sont dessinés avec des Listes dont les valeurs sont définies grâce à un programme. Je vais donc mettre "ombre(" dans mon programme, mais je ne sais pas comment remplir foncinf et foncsup.

[critor]

Pas de façon simple.

La fonction "ombre(" est prévue pour marcher avec des courbes de fonctions, et pas avec des diagrammes de listes statistiques.

[Wistaro]

Si j'ai bien compris ce que tu cherches, tu peux faire ça grâce à un petit programme en basic:

Code: Tout sélectionner

For(A,1,dim(L2)
For(B,1,5
Line(L2(A)+B,L3(A), L2(A)+B, L1(A)
End
End


[Steeve59]

Voici un bout de programme si ça peut aider

Code: Tout sélectionner

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

[Wistaro]

Voici un bout de programme si ça peut aider

Code: Tout sélectionner

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

Heu il est supposé faire quoi ce programme ?

[Steeve59]

je t'ai envoyé un mp

[Steeve59]

ton code est vraiment pas mal il est même mieux que ce que j'essayer de faire

[Wistaro]

ton code est vraiment pas mal il est même mieux que ce que j'essayer de faire

Merci.

Cool alors