esercitazioni con Turbo Basic

esci turboba.htm

studio di funzioni. ricerca di massimi e minimi

REM max6
REM ricerca massimi e minimi funzione
REM grafico funzione e derivata prima
REM tabella valori x funzione derivata1 derivata2
CLS
PRINT "si calcola derivata prima e seconda della funzione"
PRINT "in punto x interno a intervallo esistenza funzione"
PRINT "se d1(x)=0 e d2(x)<0 :f(x)=massimo relativo"
PRINT "se d1(x)=0 e d2(x)>0 :f(x)=minimo ralativo"
PRINT "verifica confrontanto grafici e tabella valori calcolati"
PRINT
PRINT "enter": INPUT k$
CLS
DEF fny (x)
fny = -x ^ 2
END DEF
DEF fnd1 (x)
fnd1 = -2 * x
END DEF
DEF fny2 (x)
fny2 = -2
END DEF
SCREEN 12
a = 0
b = 120
h = 100
LINE (a, h)-(200, h)
LINE (b, 1)-(b, 200)
FOR k = a TO 200 STEP 20
LINE (k, h - 2)-(k, h + 2)
NEXT k
FOR x = -6 TO 6 STEP .1
LINE (a, h - fny(x))-(a, h - fny(x)), 3
LINE (a, h - fnd1(x))-(a, h - fnd1(x)), 5
a = a + 2
NEXT x
r = 4
LOCATE 2, 30: PRINT "x", "x^2", "d1"; " "; "d2"
FOR x = -6 TO 6 STEP 1
LOCATE r, 30: PRINT x, fny(x), fnd1(x); " "; fny2(x)
r = r + 1
NEXT x
LOCATE r, 2: PRINT "massimo assoluto per x=0 "
LOCATE r + 2, 2: PRINT "d1(0)=0...d2(0)<0...f(0)=0"
END