esercitazioni con Turbo Basic

esercizi su derivate

REM deriva7
REM ricerca massimo e minino assoluto
100 CLS
INPUT "dx=prova 1...0.5.."; dx
CLS
SCREEN 2
LOCATE 2, 20: PRINT "funzione=3x^5-25x^3+60x-1"
x1 = -2: x2 = 3: a = 0
DEF fny1 (x) = 3 * x ^ 5 - 25 * x ^ 3 + 60 * x - 1
DEF fnd1 (x) = 15 * x ^ 4 - 75 * x ^ 2 + 60
DEF fnd2 (x) = 60 * x ^ 3 - 150 * x
LINE (0, 100)-(300, 100)
FOR k = 0 TO 300 STEP 40
LINE (k, 98)-(k, 102)
NEXT k
a1 = 80
LINE (a1, 50)-(a1, 300)
FOR x = x1 TO x2 STEP .1
LINE (a, 100 - fny1(x))-(a, 100 - fny1(x))
a = a + 4
NEXT x
LOCATE 3, 20: PRINT "x", "fny(x)", "y1", "y2"
r = 6
FOR x = x1 TO x2 STEP dx
LOCATE r, 20: PRINT x, fny1(x), fnd1(x), fnd2(x)
r = r + 1
NEXT x
LOCATE 19, 2: PRINT "massimo relativo per x=-2"
LOCATE 20, 2: PRINT "minimi relativi per x=-1,2"
LOCATE 21, 2: PRINT "minimo assoluto per x=-1"
LOCATE 22, 2: PRINT "massimo assoluto per x=3"
LOCATE 23, 2:
INPUT "altra prova:1..fine:2 "; s
IF s = 1 THEN 100 ELSE 200
200 CLS
END