Page 1 of 1
Fonction intégrFonct(

Posted:
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(

Posted:
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(

Posted:
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(

Posted:
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(

Posted:
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(

Posted:
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(

Posted:
26 Jan 2013, 13:23
by Nas4
ok je vais essayé ça, merci !
Re: Fonction intégrFonct(

Posted:
26 Jan 2013, 15:40
by Nas4

je comprend toujours rien, cette foi le programme m’affiche toujours 0.
Es-que ça marche chez toi ?
Re: Fonction intégrFonct(

Posted:
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(

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