Page 1 of 1

Fonction intégrFonct(

Unread postPosted: 26 Jan 2013, 12:49
by Nas4
Bonjour à tous
j'ai commencé à faire un petit programme sur les intégral et voilà ce que j'obtiens sur l'image si dessous :@ ,

donc je voudrai savoir si vous aviez pas une solution à ça.
Merci

Re: Fonction intégrFonct(

Unread postPosted: 26 Jan 2013, 12:51
by Persalteas
oui, ta calculatrice n'a pas le CAS, elle ne calcule donc pas les intégrales avec des formules littérales, mais avec les valeurs dans X...

C'est comme ça :?

Re: Fonction intégrFonct(

Unread postPosted: 26 Jan 2013, 12:55
by Nas4
je ne comprend pas, car si j’allège le programme au max j’obtiens bien 0.5

Re: Fonction intégrFonct(

Unread postPosted: 26 Jan 2013, 12:58
by Persalteas
ah. D'accord, oublie mon message, j'avais mal compris ton problème. J'ai pas fait suffisamment de maths dans ma vie pour que ça me saute aux yeux...

Vérifie que la variable I n'est pas modifiée entre le calcul et l'affichage... Envoie le code, si tu veux.

Re: Fonction intégrFonct(

Unread postPosted: 26 Jan 2013, 13:06
by Nas4
Code: Select all
:ClrHome
:ClrDraw
:RecallGDB 1
:0→Ymin:Horiz
:Horizontal 5:Horizontal 3.7:Line(‾5,5,‾5,3.7:Line(5,5,5,3.7
:Text(1,20,"CALCUL  INTEGRAL
:Text(17,2,"I =
:Line(‾3.6,2.5,‾3.6,.8
:Pt-On(‾3.5,2.6:Pt-On(‾3.4,2.5:Pt-On(‾3.7,0.6:Pt-On(‾3.8,0.8
:Text(10,18,"b
:Text(23,16,"a
:Text(17,21,"f(X) dx
:Input "a= ",Str2
:Str2→A
:Text(24,16,Str2
:Input "b= ",Str3
:Str3→B
:Text(11,17,Str3
:Input "f(x)= ",Str1
:Text(18,21,Str1," dx","                 
:ClrHome
:Str1→Y1
:Disp "I=",fnInt(Y1,X,A,B
:Pause
:Full:‾5→Ymin:ClrHome

Re: Fonction intégrFonct(

Unread postPosted: 26 Jan 2013, 13:15
by Persalteas
j'ai trouvé d'où vient le problème, il vient de tes "Str3→B".

rajoute un "expr(" devant.

Code: Select all
:ClrHome
:ClrDraw
:RecallGDB 1
:0→Ymin:Horiz
:Horizontal 5:Horizontal 3.7:Line(‾5,5,‾5,3.7:Line(5,5,5,3.7
:Text(1,20,"CALCUL  INTEGRAL
:Text(17,2,"I =
:Line(‾3.6,2.5,‾3.6,.8
:Pt-On(‾3.5,2.6:Pt-On(‾3.4,2.5:Pt-On(‾3.7,0.6:Pt-On(‾3.8,0.8
:Text(10,18,"b
:Text(23,16,"a
:Text(17,21,"f(X) dx
:Input "a= ",Str2
:expr(Str2→A    //modifié
:Text(24,16,Str2
:Input "b= ",Str3
:expr(Str3→B    //modifié
:Text(11,17,Str3
:Input "f(x)= ",Str1
:Text(18,21,Str1," dx","                 
:ClrHome
:Str1→Y1
:Disp "I=",fnInt(Y1,X,A,B
:Pause
:Full:‾5→Ymin:ClrHome

Re: Fonction intégrFonct(

Unread postPosted: 26 Jan 2013, 13:23
by Nas4
ok je vais essayé ça, merci !

Re: Fonction intégrFonct(

Unread postPosted: 26 Jan 2013, 15:40
by Nas4
:#fou#: je comprend toujours rien, cette foi le programme m’affiche toujours 0.
Es-que ça marche chez toi ?

Re: Fonction intégrFonct(

Unread postPosted: 26 Jan 2013, 15:55
by Persalteas
en gros, c'est tes variables A et B qui sont égales à zéro au moment du calcul, ça va pas.

Si ça ne marche toujours pas, essaye de remplacer A et B par I et J par exemple.

Re: Fonction intégrFonct(

Unread postPosted: 26 Jan 2013, 16:30
by Nas4
Non,c'est pas les variables