QB64 - Saisie d'une fonction

**wilou62** · 18/04/2016, 22h14

Salut,

Premier post sur le forum. J'ai utilisé le BASIC et QBASIC il y a longtemps, quand j'étais au collège et au lycée. J'ai retrouvé une disquette contenant des programmes que j'avais fait alors et je souhaite les améliorer un peu. La plupart sont des programmes de maths. J'ai toujours été fan de Pocket computers et, il y a pas longtemps, j'ai acheté entre autres une Casio fx-850p avec son extension mémoire RP33. Première fois que je code en BASIC Casio et j'aime beaucoup. J'ai téléchargé QB64 sur le PC, et bien entendu, j'ai constaté des différences entre les deux langages, c'est pourquoi je suis ici.

J'ai une tripotée de programmes de maths, et aujourd'hui, je fais un programme qui dessine des fonctions. Simple et efficace. Le programme me demande l'échelle du repère, puis dessine la fonction qui est stockée dans une routine FUNCTION... END FUNCTION. J'aimerais que le programme me demande de saisir la fonction, comme le reste car pour le moment il faut que j'édite le programme pour modifier la fonction en question. Pas toptop. Sur la Casio, il y a une fonction nommée VALF qui est intéressante. Je stocke la fonction dans une variable alphanumérique (par exemple F$), et VALF calcule sa valeur numérique et la stocke dans une variable numérique (par example Z : Z=VALF(f$)). Pour illustrer, voici le code pour ma Casio qui me permet de calculer des intégrales via la méthode des trapèzes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
10 CLS:PRINT "Calcul d'aires - Méthode des trapezes :"
20 INPUT "Fonction f(x) "; F$
30 INPUT "a "; A : INPUT "b "; B
40 INPUT "Nombre d'iterations "; N
50 H=(B-A)/N
60 X=A : Z1=VALF(F$) : X=B : Z2=VALF(F$) : S=.5*(Z1+Z2)
70 X=A
80 FOR I=1 TO N-1
90 X=X+H
100 Z=VALF(F$) : S=S+Z
110 NEXT I
120 S=S*H
130 PRINT CHR$(129); "f(x) dx ="; S
140 END

Ci-dessous, le code sur lequel je travaille aujourd'hui, en QB64, et qui me permet de tracer des fonctions :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
'Draw Function
1
SCREEN 12
COLOR 11
CLEAR
CLS
 
DEFDBL A-Z
 
PRINT
PRINT TAB(20); " Tracé d'une fonction"
PRINT
 
PRINT " Echelle :"
PRINT
INPUT " Valeur minimale de x "; xmin
INPUT " Valeur maximale de x "; xmax
INPUT " Valeur minimale de y "; ymin
INPUT " Valeur maximale de y "; ymax
 
CLS
 
WINDOW (xmin + xmin / 10, ymin + ymin / 10)-(xmax + xmax / 10, ymax + ymax / 10)
LINE (xmin, 0)-(xmax, 0)
LINE (0, ymin)-(0, ymax)
 
FOR i = xmin TO xmax STEP 1
    PSET (i, xmax / 320)
NEXT i
 
FOR j = ymin TO ymax STEP 1
    PSET (ymin / 320, j)
NEXT j
 
FOR x = xmin TO xmax STEP 1 / 128
    IF x = xmin THEN PSET (x, f(x)), 14
    LINE -(x, f(x)), 14
NEXT x
 
LOCATE 28, 1
INPUT " Encore (o/n) "; z$
IF z$ = "o" THEN 1 ELSE END
 
FUNCTION f (x)
f = x ^ 3 - 3 * x ^ 2 + 2
END FUNCTION

Vous l'aurez compris, je cherche un équivalent à VALF dans QB64, afin de m'affranchir de FUNCTION... END FUNCTION, pour ne pas avoir à éditer le programme à chaque fois que je veux remplacer une fonction.
Est-ce possible ?

Merci.

W.