INFORMATICA
COME
FAR DISEGNARE AL COMPUTER GLI ASSI
CARTESIANI E UNA
PARABOLA
Disegniamo gli assi :
Xos
ed Yos indicano le coordinate dell’origine O degli assi
cartesiani.
Xos = 500
Yos
= 3400
ForeColor
= QBColor(1) ‘colore degli assi
Line (Xos, Yos)-(Xos+5000, Yos) 'asse x
Line (Xos+2500, Yos-2500)-(Xos+2500,Yos+2500) ‘asse y
Se vogliamo disegnare la parabola : y = a*x^2+b*x+c
sarà necessario far richiedere i valori
di a, b, c. (normalmente di
poche unità)
e si fanno calcolare le coordinate del vertice
:
xV
= - b / (2*a)
delta
= b^2 - 4*a*c
yV = -delta / (4*a)
If
delta >= 0 Then
x1 = 0.5 * (-b - Sqr(delta)) / a ' sqr = RADICE QUADRATA nel Visual Basic
x 2 = 0.5 * (-b + Sqr(delta)) / a
Print
"Intersezioni con l'asse delle ascisse : x1 = "; Round(x1, 2) &
" , x2 = "; Round(x2, 2);
xMax=10
yMax=10
If Abs(x1) > xMax Then xMax = Abs(x1)
If Abs(x2) > xMax Then xMax = Abs(x2)
End
If
If
delta < 0 Then
Print "La parabola non taglia l'asse
x"
End
If
yMax = -1000000#
If Abs(yV) > yMax Then yMax = Abs(yV)
If Abs(c) > yMax Then yMax = Abs(c)
Print
"Si consiglia un valore di xMax che sia un numero intero e maggiore di
"; Round(xMax, 2) & " ed yMax intero e maggiore di ";
Round(yMax, 2)
For
x = -xMax To xMax Step 0.01 ‘Viene
disegnata la parabola
xs = Xos + 2500 * x / xMax
y = a * x * x
+ b * x + c
ys = Yos -
2500 * y / yMax
If xs > 500
And xs < 6000 And ys > yos - 2500 And ys < yos + 2500 Then PSet (xs,
ys)
Next x
ForeColor = QBColor(1) ‘ Vengono stampati i
valori massimi sugli assi
CurrentX = 1780
CurrentY = 600
Print "
xMax = "; Round(xMax, 2) & "
, yMax = "; Round(yMax,
0)
ForeColor =
QBColor(9)
CurrentX = 7000
CurrentY = 1200
Print "y =
("; Round(a, 2) & ")
* x ^2 +
("; Round(B, 2) & ")
* x +
("; Round(c, 2) & ")"
NB Scrivere un programma al computer richiede che ci sia quel dato programma (Visual Basic, Turbo Pascal, ecc), ma si può usare anche un foglio elettronico.
Si prova una grande gioia quando si riesce a farlo funzionare. AUGURI.
Negli ultimi 5 anni in cui ho insegnato, i miei alunni hanno imparato le basi della programmazione.
In oltre 25 anni di lavoro (qualche ora al giorno), ho raccolto oltre 500 programmi di Fisica e di Complementi di Matematica. Essendo compilati (.EXE), non richiedono nessun programma di compilazione, ma non vengono pubblicati dagli Editori per la facilità di copiature di un CD.
Nel 1980 un centinaio di programmi (per ciascun dei due volumi) me li pubblicò la S.E.I. di Torino e a quell'epoca erano scritti in Turbo Pascal, ma ora sono tutti in Visual Basic, che possiede una grafica molto superiore e tante altre possibilità.
Seguono due videate del programma (in Visual Basic)
2° caso
°°°°°°°
Nessun commento:
Posta un commento