esercitazioni con Turbo Basic

esci turboba.htm

esercizi su derivate

 

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