Page 1 of 1

Ombrer un graphe entre deux courbes

Unread postPosted: 01 Nov 2016, 13:30
by 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.

Image


Image

Re: Ombrer un graphe entre deux courbes

Unread postPosted: 01 Nov 2016, 14:18
by 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.

Re: Ombrer un graphe entre deux courbes

Unread postPosted: 01 Nov 2016, 14:27
by Wistaro
Si j'ai bien compris ce que tu cherches, tu peux faire ça grâce à un petit programme en basic:

Code: Select all
For(A,1,dim(L2)
For(B,1,5
Line(L2(A)+B,L3(A), L2(A)+B, L1(A)
End
End

Re: Ombrer un graphe entre deux courbes

Unread postPosted: 01 Nov 2016, 14:42
by Steeve59
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

Re: Ombrer un graphe entre deux courbes

Unread postPosted: 01 Nov 2016, 14:44
by Wistaro
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


Heu il est supposé faire quoi ce programme ?

Re: Ombrer un graphe entre deux courbes

Unread postPosted: 01 Nov 2016, 14:54
by Steeve59
je t'ai envoyé un mp

Re: Ombrer un graphe entre deux courbes

Unread postPosted: 01 Nov 2016, 15:27
by Steeve59
ton code est vraiment pas mal il est même mieux que ce que j'essayer de faire ;)

Re: Ombrer un graphe entre deux courbes

Unread postPosted: 01 Nov 2016, 23:22
by Wistaro
Steeve59 wrote:ton code est vraiment pas mal il est même mieux que ce que j'essayer de faire ;)


Merci.

Cool alors :)