domenica 25 febbraio 2018

INFORMATICA : Un programma in Visual Basic, ma adattabile ad altri linguaggi, per disegnare una funzione (parabola, retta, o altra funzione)


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) & ")"

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo

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