Nel seguito sono presenti esempi di programmini in Basic, usabile online, e riferimenti a WolframAlpha (clicca)

script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 areogramma60
1 LEGGI m 2 LEGGI n 3 PONI p=0 e i=0 4 SE i=n VAI al passo 7 5 PONI p=p+m e i=i+1 6 VAI al passo 4 7 SCRIVI p |
1 input m 2 input n 3 p=0 : i=0 4 if i=n then goto 7 5 p=p+m : i=i+1 6 goto 4 7 print p ? 2 ? 5 10 |
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 areogramma60 grafici
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 areogramma60 ordina/ grafici
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 areogramma60 ordina/ grafici
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 areogramma60 grafici ordina/ grafi ad albero
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 areogramma60 ordina/ grafici grafi ad albero
10 INPUT T 20 K=100/T 30 INPUT D 40 PRINT D*K 50 GOTO 30Perc. (qui "percentuali")
10 INPUT x 20 GOSUB 100 : PRINT y 30 GOTO 10 100 y = x/(SQR(4)-2) : RETURN? 2
10 INPUT x 20 GOSUB 100 ; PRINT y 30 GOTO 10 100 y = x/(SQR(4)-2) : RETURNnon viene eseguito e fa apparire un massaggio "ERROR", ad indicare che siamo in presenza di un errore "sintattico" (abbiamo usato ";" invece di ":").
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 areogramma60 ordina/ grafici Perc. divisori divPrimi scomponi gioco Pitagora SommaAngoli Triangoli

script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 areogramma60 ordina/ grafici Perc. divisori cerchi
10 print "27."; 20 print "04"; 30 for i=1 to 20 : print "04"; : next : print "..." 27.040404040404040404040404040404040404040404...
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 areogramma60 ordina/ grafici Perc. divisori numeri decimali
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 areogramma60 ordina/ grafici Perc. divisori indet divis
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 areogramma60 ordina/ grafici Perc. divisori indet divis Pitagora operatori logici
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 areogramma60 ordina/ grafici Perc. divisori indet divis distanza cerchio 1



10 print "avanzamento, pendenza, spostamento" 20 a=100 : for h=0 to 100 step 5 30 s = sqr(a^2+h^2) : print a, h, s 40 nexte10 massa-peso (qui "massa-peso")
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 areogramma60 ordina/ grafici Perc. divisori indet divis distanza triang massa-peso
10 data 7, 13, 1.4, 9
20 dim xx(3) : for i=0 to 3 : read xx(i) : next
30 print xx(0), xx(2)
7 1.4
§5 e1 La figura è ottenibile con Italia
05 print "Introduci la x dell'estremo dell'arco. A 'smetto?' ripondi 1 per finire" 10 input "x = "; x 20 n=2 : L0=0 30 L=0 : dx = (1-x)/n 35 for i=1 to n 40 a=1-dx*(i-1) : gosub 500 : y1=b : a=1-dx*i : gosub 500 : y2=b 50 L = L + sqr(dx^2+(y2-y1)^2) 60 next 70 print "n="; n;" L="; L;" variazione=";L-L0;" "; : n=n*2 : input "smetto? "; R 80 if R=1 then end else L0=L : goto 30 500 b = sqr(1-a^2) : returnGli esiti:
Introduci la x dell'estremo dell'arco. A 'smetto?' ripondi 1 per finire x = -0.8 n=2 L=2.3245014457349744 variazione=2.3245014457349744 smetto? 0 n=4 L=2.4420250892037814 variazione=0.11752364346880695 smetto? 0 n=8 L=2.479497518211525 variazione=0.037472429007743724 smetto? 0 n=16 L=2.491823296986896 variazione=0.012325778775370999 smetto? 0 n=32 L=2.495951313079686 variazione=0.004128016092789899 smetto? 0 n=64 L=2.4973536528292777 variazione=0.0014023397495916967 smetto? 0 n=128 L=2.4978353176491686 variazione=0.0004816648198908702 smetto? 0 n=256 L=2.498002111315031 variazione=0.00016679366586247468 smetto? 0 n=512 L=2.4980602130236353 variazione=0.00005810170860431896 smetto? 0 n=1024 L=2.498080539032036 variazione=0.000020326008400850526 smetto? 0 n=2048 L=2.498087671550644 variazione=0.000007132518607733118 smetto? ... (attendendo qualche minuto per le ultime uscite) n=8388608 L=2.498091544782018 variazione=2.7075230946138618e-11 smetto? 0 n=16777216 L=2.4980915447914733 variazione=9.455547456127533e-12 smetto? 0 n=33554432 L=2.4980915447953875 variazione=3.914202295618452e-12 smetto? 0 n=67108864 L=2.4980915447957663 variazione=3.788080960021034e-13Le variazioni si dividevano circa per 3. Ora (dal 13º posto dopo ".") non più. Mi fermo e prendo 2.498091544797 (ho aggiunto a 2.4980915447953875 circa 1.2*10-12). Ma mi potevo fermare ad una approssimazione con meno cifre ...
Introduci la x dell'estremo dell'arco. A 'smetto?' ripondi 1 per finire x = -1 n=2 L=2.8284271247461903 variazione=2.8284271247461903 smetto? 0 n=4 L=3.035276180410083 variazione=0.20684905566389267 smetto? 0 n=8 L=3.1044960677748414 variazione=0.06921988736475848 smetto? 0 n=16 L=3.1285443165443008 variazione=0.024048248769459324 smetto? 0 ... =16777216 L=3.1415926535778027 variazione=2.2077450978486013e-11 smetto? 0 n=33554432 L=3.1415926535859193 variazione=8.116618488429594e-12 smetto? 0 n=67108864 L=3.14159265358865 variazione=2.730704551368035e-12 smetto?Le variazioni si dividono circa per 3. Se mi fermo qui prendo 3.141592653590 (ho aggiunto a 3.14159265358865 circa 1*10-12). Con WoframAlpha PI = 3.141592653589793238462643...
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 areogramma60 ordina/ grafici Perc. divisori indet divis distanza q_5 Larco
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici Perc. divisori indet distanza egualianza triang. area triang e parallelog

40 x 39 = 1560 1560 x 38 = 59280 59280 x 37 = 2193360 2193360 x 36 = 78960960 78960960 x 35 = 2763633600 ... 407957641623948867172805634798057947136000000000 x 2 = 815915283247897734345611269596115894272000000000Con WolframAlpha: 40! → 815915283247897734345611269596115894272000000000
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici Perc. divisori indet distanza egualianza triang. fattoriale
Dopo il quesito 7 l'eq. (20-2x)²·x-300=0 (senza trasformarla) posso risolverla in Basic:
10 print "soluzione di (20-2*x)^2*x - 300 = 0 tra 5 e 10"
15 a = 5 : b = 10
20 n = 0
25 m = a+(b-a)/2
30 n=n+1 : x = a : gosub 1000 : gosub 500 : sa = segno
35 x = m : gosub 1000 : gosub 500 : sm = segno
40 if sa = sm then a = m else b = m
50 goto 25
500 segno=0 : if y>0 then segno = 1
501 if y<0 then segno = -1
502 if segno=0 or n = 60 then gosub 600
503 return
600 print "x = "; m : print "- - - - - - - - - - - -" : END
1000 y = (20-2*x)^2*x - 300 : return
soluzione di (20-2*x)^2*x - 300 = 0 tra 5 e 10
x = 6.638888245840116 |
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici divisori indet distanza egualianza triang. tariffe ordina parole lungh parole distanza navi grafico V equazioni parabole

script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici divisori indet distanza egualianza triang equazioni F1 F2 sistemi equazioni

script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici divisori indet distanza egualianza triang equazioni sistemi equazioni frazioni
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici divisori indet distanza egualianza triang equazioni sistemi equazioni frazioni piu per basi num
10 n=1 : for i=1 to 10 : print n+" "; : n=n*2 : next1 2 4 8 16 32 64 128 256 512
10 n=1 : for i=1 to 10 : print n+" "; : n=n*2 : next : print 20 dim y(10) : y(1)=1 : y(2)=2 : y(3)=3 30 for i = 1 to 7 : y(i+3)=y(i)*8 : next 40 for i=1 to 10 : print y(i)+" "; : next |
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici divisori indet distanza egualianza triang equazioni sistemi equazioni frazioni piu per Dado boh? boh
10 for i=1 to 50 20 if rnd < 0.5 then print "T"; else print "C"; 30 next |
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici divisori indet distanza egualianza triang equazioni sistemi equazioni frazioni piu per Dado dado_bilanciato 7 e mezzo random dadi(2)bilanciati
10 print "Lancio N volte 2 dadi. Con che frequenza relativa esce 7?" 20 input "N = "; n : uscite = 0 30 for i=1 to n 40 if( int(rnd*6)+1+int(rnd*6)+1 ) = 7 then uscite = uscite+1 50 next : print " " + uscite/n*100 60 goto 20 |

10 for n=0 to 8
20 x = 1/(10^n) : gosub 100 : print "y(" + x + ") = "+ y
30 next
40 end
100 y = cos(sin(1/x)*x) : return |
10 input "x = "; x : gosub 100 : print "y(" + x + ") = "+ y : goto 10
100 y = cos(sin(1/x)*x) : return |

10 x = 9 : s=1 20 print s; : input " premi 'a capo'"; u$ 30 s=(s+x/s)/2 : goto 20 |
10 x = 5 20 print x; : input " premi 'a capo'"; u$ : x=sqr(x) : goto 20 |
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici divisori indet distanza egualianza triang equazioni sistemi equazioni frazioni piu per random dadi(2)bilanciati divisione CuA CuB successione grafico f-g-h e zoom sin A e sin B TabFun

10 Q = 4 : n = 10
20 x=Q : gosub 100 : y1=y : print "F("+Q+") = "; y
25 print "DF = F(";Q;"+h)-F(";Q;")"
30 for i=1 to 7
40 gosub 200 : print "DF/h = "+D+" h = 1/"+n : n=n*10
50 next
60 end
100 y = x^3+1: return
200 h = 1/n : x=Q+h : gosub 100 : D = (y-y1)/h : return
F(4) = 65
DF = F(4+h)-F(4)
DF/h = 49.20999999999978 h = 1/10
DF/h = 48.120099999998445 h = 1/100
DF/h = 48.01200100001779 h = 1/1000
DF/h = 48.00120000993502 h = 1/10000
DF/h = 48.000119998903294 h = 1/100000
DF/h = 48.00001200067072 h = 1/1000000
DF/h = 48.00000127147541 h = 1/10000000
|
Per la derivata in e4 modifico così:
10 Q = 1 : n = 10 100 y = 3*(x^2)-1: return 200 h = 1/n : x=Q+h : gosub 100 : D = (y-y1)/h : return |

Da destra:
10 Q = 1 : n = 10 100 if x<1 then y=x^2 else y=2*x-1 110 return 200 h = 1/n : x=Q+h : gosub 100 : D = (y-y1)/h : return |
Da sinistra:
10 Q = 1 : n = 10
100 if x<1 then y=x^2 else y=2*x-1
110 return
200 h = -1/n : x=Q+h : gosub 100 : D = (y-y1)/h : return |

Da destra:
10 Q = 0 : n = 10 100 if x>=0 then y=x^2 else y=0 110 return 200 h = 1/n : x=Q+h : gosub 100 : D = (y-y1)/h : return |
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici divisori indet distanza egualianza triang equazioni sistemi equazioni frazioni piu per sassello termometro livello velocità variaz. uno due tre quattro seno coseno deriv sin deriv cos 2aX 23aX EaX e10b e11b e15 Deriv
Da destra:
10 ' metti im 500 la funzione e scegli gli estremi A e B 20 print "A 'smetto?' ripondi 1 per finire, batti solo 'a capo' per continuare" 25 A = -1 : B = 1 26 n=1000 : L0=0 30 L=0 : dx = (B-A)/n 35 for i=1 to n 40 x=A+dx*(i-1) : gosub 500 : y1=y : x=A+dx*i : gosub 500 : y2=y 50 L = L + sqr(dx^2+(y2-y1)^2) 60 next 70 print "n="; n;" L="; L;" variazione=";L-L0; : n=n*2 : input " smetto? "; R$ 80 if R$="1" then end else L0=L : goto 30 500 y = sqr(1-x^2): return |
A 'smetto?' ripondi 1 per finire, batti solo 'a capo' per continuare n=1000 L=3.1415663562164773 variazione=3.1415663562164773 smetto? n=2000 L=3.141583356349991 variazione=0.000017000133513800364 smetto? n=4000 L=3.1415893665695718 variazione=0.0000060102195806877035 smetto? ... n=8192000 L=3.1415926535540852 variazione=6.426104093293361e-11 smetto? n=16384000 L=3.141592653577348 variazione=2.326272507957583e-11 smetto? n=32768000 L=3.141592653585328 variazione=7.979839011795775e-12 smetto? |
10 ' metti im 500 la funzione e scegli gli estremi A e B 20 print "A 'smetto?' ripondi 1 per finire, batti solo 'a capo' per continuare" 25 A = -2 : B = 4 26 n=1000 : L0=0 30 L=0 : dx = (B-A)/n 35 for i=1 to n 40 x=A+dx*(i-1) : gosub 500 : y1=y : x=A+dx*i : gosub 500 : y2=y 50 L = L + sqr(dx^2+(y2-y1)^2) 60 next 70 print "n="; n;" L="; L;" variazione=";L-L0; : n=n*2 : input " smetto? "; R$ 80 if R$="1" then end else L0=L : goto 30 500 y = x^3/4-x^2-2*x+4: return |
A 'smetto?' ripondi 1 per finire, batti solo 'a capo' per continuare n=1000 L=14.551210231262056 variazione=14.551210231262056 smetto? n=2000 L=14.55122349926904 variazione=0.000013268006984645808 smetto? n=4000 L=14.551226816269518 variazione=0.0000033170004769544903 smetto? ... n=512000 L=14.551227921868824 variazione=2.0239632192442514e-10 smetto? n=1024000 L=14.551227921919743 variazione=5.091926880140818e-11 smetto? n=2048000 L=14.551227921930963 variazione=1.1219469797651982e-11 smetto? n=4096000 L=14.551227921935773 variazione=4.810374321095878e-12 smetto? n=8192000 L=14.55122792193632 variazione=5.471179065352771e-13 smetto? |
... n=512000 L=2.9578857150868543 variazione=6.842970634579615e-12 smetto? n=1024000 L=2.9578857150885423 variazione=1.687983086640088e-12 smetto? n=2048000 L=2.9578857150889086 variazione=3.6637359812630166e-13 smetto?Con WolfranAlpha: arc length of y=-(x-1)^2+1 from x=0 to 2 → 2.95788571508919486765581203... |
... 25 A = -1.2 : B = 1.2 ... 500 if x=0 then y=0 else y = cos(1/x)*x 510 return A 'smetto?' ripondi 1 per finire, batti solo 'a capo' per continuare n=1000 L=6.526843251158561 variazione=6.526843251158561 smetto? n=2000 L=6.865068914084727 variazione=0.33822566292616596 smetto? ... n=1024000 L=10.84189054726665 variazione=0.4480296730130586 smetto? n=2048000 L=11.261108581929992 variazione=0.4192180346633432 smetto? n=4096000 L=11.718581306856485 variazione=0.45747272492649316 smetto?Con WolfranAlpha: arc length of y = cos(1/x)*x from x=-1.2 to 1.2 → unable to calculate arc length |
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici divisori indet distanza egualianza triang equazioni sistemi equazioni frazioni piu per seno coseno AreaTriangolo area polig LenArc esagono
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici divisori indet distanza egualianza triang equazioni sistemi equazioni frazioni piu per seno coseno AreaTriangolo area polig LenArc cerchio 3p cerchio triang
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici divisori indet distanza egualianza triang equazioni sistemi equazioni frazioni piu per seno coseno AreaTriangolo area polig LenArc cerchio 3p cerchio triang integrali
![]() |
A = 0 B = 110 intervalli = 11 di ampiezza 10 n = 1000 min = 0.51618556975 max = 108.7942725365 mediana = 48.0766626467 1^|3^ quarto = 35.1315718699|62.1736592176 somma = 48325.7918973 media = 48.3257918974 |
![]() |
A = 0 B = 60 intervalli = 15 di ampiezza 4 n = 1000 min = 0.0060767911031 max = 57.08214064 mediana = 6.02638292  1^|3^ quarto = 2.6562957098|12.383356609 somma = 9034.9697413  media = 9.0349697413 |


script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici divisori indet distanza egualianza triang equazioni sistemi equazioni frazioni piu per seno coseno AreaTriangolo area polig LenArc cerchio 3p cerchio triang integrali istogramma morti numeri casuali RND, RND+RND
script: piccola CT grande CT istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici divisori indet distanza egualianza triang equazioni sistemi equazioni frazioni piu per seno coseno AreaTriangolo area polig LenArc cerchio 3p cerchio triang integrali istogramma Random curva1 curva2 curva3

Invece degli scipt varieRND_1, varieRND_2, varieRND_10 consideriamo questi programmi in Basic
10 N=1500 20 for i=1 to N-1 : print sqr(rnd)+3*(rnd^2);", "; 30 if i/8=int(i/8) then print "" 40 next 50 print sqr(rnd)+3*(rnd^2) 10 N=1500 20 for i=1 to N-1 : print sqr(rnd)+3*(rnd^2)+sqr(rnd)+3*(rnd^2);", "; 30 if i/8=int(i/8) then print "" 40 next 50 print sqr(rnd)+3*(rnd^2)+sqr(rnd)+3*(rnd^2) 10 N=1500 20 for i=1 to N-1 : s=0 : for j=1 to 10: s=s+sqr(rnd)+3*(rnd^2) : next : print s;" ,"; 30 if i/8=int(i/8) then print "" 40 next 50 s=0 : for j=1 to 10: s=s+sqr(rnd)+3*(rnd^2) : next : print s |

script: piccola CT grande CT (calcolatrice2) istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici divisori indet distanza egualianza triang equazioni sistemi equazioni frazioni piu per seno coseno area polig LenArc cerchio 3p cerchio triang integrali istogramma Random binom10 binom9 binom6-1/8 binom6-1/4 binom N=20 p=0.25 varieRND gauss gauss1 binom N=9 gauss gaussiana integrali2

script: piccola CT grande CT (calcolatrice2) istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici divisori indet distanza egualianza triang equazioni sistemi equazioni frazioni piu per seno coseno area polig LenArc cerchio 3p cerchio triang integrali istogramma Random varieRND gaussiana AB3dim Casa3dim
10 n = 0 : P = 1 20 print "n = "; n; " P = "; P 30 for i=1 to 30 40 n = n+1 : P = P * 1.5 50 print "n = "; n; " P = "; P 60 next uscite n = 0 P = 1 n = 1 P = 1.5 n = 2 P = 2.25 n = 3 P = 3.375 n = 4 P = 5.0625 n = 5 P = 7.59375 ... n = 20 P = 3325.256730079651 ... n = 30 P = 191751.0592328841 Poi, per P(0), ..., P(10): 10 n = 0 : P = 1 20 print P; 30 for i=1 to 10 40 n = n+1 : P = P * 1.5 50 print ", "; P; 60 next uscite |
| Per rappresentare questa "sequenza" usiamo lo script "isto/diagramma" | ![]() |


10 t = 0 : D = 100
20 print "t = "; t; " D = "; D : D0=D
30 for i=1 to 6
40 t = t+1 : D0=D : D = D * 1.5
50 print "t = "; t; " D = "; D
60 next
70 print D0+(D-D0)/2
949.21875 |
05 print "Derivata in x0 approssimata con pendenza di F tra x0-h e x0+h"
10 x0 = 0 : n=1 : D0=0 : x=x0 : gosub 100 : print "F(";x0;") = "; y
20 for i=1 to 7
30 h=0.1^n : gosub 200 : print "DF/Dx = "; D, "se h = 1/10^"; n; " variaz.= "; D-D0
40 n=n+1 : D0=D
50 next
60 end
100 y = 1.5^x: return ' la definizione di F
200 x=x0-h : gosub 100 : y1=y : x=x0+h : gosub 100 : y2=y : D = (y2-y1)/(2*h) : return
uscite:
Derivata in x0 approssimata con la pendenza di F tra x0-h e x0+h
F(0) = 1
DF/Dx = 0.40557621600096294 se h = 1/10^1 variaz.= 0.40557621600096294
DF/Dx = 0.4054662190966784 se h = 1/10^2 variaz.= -0.00010999690428453723
DF/Dx = 0.405465119218018 se h = 1/10^3 variaz.= -0.0000010998786604266009
DF/Dx = 0.40546510821970466 se h = 1/10^4 variaz.= -1.09983133156355e-8
DF/Dx = 0.40546510811090275 se h = 1/10^5 variaz.= -1.0880191192441657e-10
DF/Dx = 0.40546510809980046 se h = 1/10^6 variaz.= -1.1102285757402797e-11
DF/Dx = 0.4054651087104231 se h = 1/10^7 variaz.= 6.106226635438361e-10
|
DF/Dx = 1.2527629685232797 se h = 1/10^5 variaz.= -3.2490676815655206e-9 DF/Dx = 1.2527629684733195 se h = 1/10^6 variaz.= -4.996025815273697e-11 DF/Dx = 1.2527629683622972 se h = 1/10^7 variaz.= -1.1102230246251565e-10 |
script: piccola CT grande CT (calcolatrice2) istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici divisori indet distanza egualianza triang equazioni sistemi equazioni frazioni piu per seno coseno area polig LenArc cerchio 3p cerchio triang integrali istogramma Random varieRND gaussiana AB3dim Casa3dim ricorsione banca banca2 micro Da^x Dlog


10 input "x = "; x : gosub 100 : print "f(" + x + ") = "+ y : goto 10
100 y = (sin(x) + x/2) / (2*x + x^2) : return
f(0.1) = 0.7134924602229911 f(0.01) = 0.7462603648839137 f(0.001) = 0.7496251041146135 .. f(1e-20) = 0.75 |
10 input "x = "; x : gosub 100 : print "f(" + x + ") = "+ y : goto 10
100 y = ( sin(1/x)+1/(x^2) ) / (1/x) : return
f(10) = 1.0983341664682815 f(100) = 1.0099833334166664 f(1000) = 1.0009998333333416 ... |
10 input "x = "; x : gosub 100 : print "f(" + x + ") = "+ y : goto 10
100 y = (sqr(x)-x)/(x^2-1) : return
f(1.1) = -0.24376738966594483 f(1.01) = -0.24937501929905756 .. f(1.00000001) = -0.25 |
10 input "x = "; x : gosub 100 : print "f(" + x + ") = "+ y : goto 10
100 y = 5^(-x)*(x^6) : return
f(1) = 0.2 f(10) = 0.1024 f(100) = 1.2676506002282295e-58 f(1000) = 0 |

10 input "x = "; x : gosub 100 : print "f(" + x + ") = "+ y : goto 10
100 100 y = log(x)/(x^2-1) : return
f(1.1) = 0.45385799906821356 f(1.01) = 0.49504133597851185 ... f(1.00000001) = 0.4999999975 ... |
5 y = 0
10 y0 = y : input "x = "; x : gosub 100 : print "f(" + x + ") = "; y, "var = "; y-y0 : goto 10
100 y = (10^x-exp(x))/sin(x) : return
f(0.01) = 1.3243045912914448 var = 1.3243045912914448
f(0.001) = 1.3047381286475777 var = -0.01956646264386719
f(0.0001) = 1.3028002087509132 var = -0.001937919896664475
...
f(1e-7) = 1.3025853085046912 var = -0.0000019355630360706755
f(1e-8) = 1.302585128648559 var = -1.798561322097214e-7
f(1e-9) = 1.3025849288084146 var = -1.9984014443252818e-7 |

script: piccola CT grande CT (calcolatrice2) istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici divisori indet distanza egualianza triang equazioni sistemi equazioni frazioni piu per seno coseno area polig LenArc cerchio 3p cerchio triang integrali istogramma Random varieRND gaussiana AB3dim TabulaFunzioni ALTRO
|
VOL - link §3 Prima del quesito (2) si può usare un programmino in Basic con cui generare punti in un cubo di cui prendere quelli che stanno nel prisma triangolare sua metà, quanti stanno anche nella piramide rappresentata a fianco. |
![]() | ||
10 tot=1: dentro=0: input "n. prove "; n : while tot <= n 20 x=rnd : y=rnd : z=rnd 30 if x+y<1 then tot=tot+1 40 if x+y+z < 1 then dentro=dentro+1 50 wend 60 print tot/dentro, n;" prove" : goto 10 n. prove 1e4 3.059345365555216 10000 prove n. prove 1e5 3.021360807299535 100000 prove n. prove 1e6 3.0011764599958584 1000000 prove n. prove 1e7 3.000350740966545 10000000 prove n. prove 1e8 2.99997549020049 100000000 prove | |||

script: piccola CT grande CT (calcolatrice2) istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici divisori indet distanza egualianza triang equazioni sistemi equazioni frazioni piu per seno coseno area polig LenArc cerchio 3p cerchio triang integrali istogramma Random varieRND gaussiana AB3dim TabulaFunzioni determinat ALTRO
script: piccola CT grande CT (calcolatrice2) istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici divisori indet distanza egualianza triang equazioni sistemi equazioni frazioni piu per seno coseno area polig LenArc cerchio 3p cerchio triang integrali istogramma Random varieRND gaussiana AB3dim TabulaFunzioni determinat coniche ALTRO
script: piccola CT grande CT (calcolatrice2) istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici divisori indet distanza egualianza triang equazioni sistemi equazioni frazioni piu per seno coseno area polig LenArc cerchio 3p cerchio triang integrali istogramma Random varieRND gaussiana AB3dim TabulaFunzioni determinat vettori ALTRO
script: piccola CT grande CT (calcolatrice2) istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici divisori indet distanza egualianza triang equazioni sistemi equazioni frazioni piu per seno coseno area polig LenArc cerchio 3p cerchio triang integrali istogramma Random varieRND gaussiana AB3dim TabulaFunzioni determinat generatori ALTRO
| §5 I dati terraria: | ||
| DA: DS: |
55, 70, 155, 160, 155, 115, 105, 165, 110, 115, 85, 165, 110, 155, 105 85, 115, 205, 230, 185, 185, 145, 240, 140, 155, 125, 290, 170, 195, 135 | |
script: piccola CT grande CT (calcolatrice2) istogramma a barre istogramma a striscia istogramma100 areogramma100 ordina/ grafici divisori indet distanza egualianza triang equazioni sistemi equazioni frazioni piu per seno coseno area polig LenArc cerchio 3p cerchio triang integrali istogramma Random varieRND gaussiana AB3dim retta regressione sottosequenza ALTRO
10 print "soluzione di 7/(x^2+1)-x^3+5 = 0 tra 0 ed 3" 15 a = 0 : b = 3 20 n = 0 25 m = a+(b-a)/2 30 n=n+1 : x = a : gosub 1000 : gosub 500 : sa = segno 35 x = m : gosub 1000 : gosub 500 : sm = segno 40 if sa = sm then a = m else b = m 50 goto 25 500 segno=0 : if y>0 then segno = 1 501 if y<0 then segno = -1 502 if segno=0 or n = 60 then gosub 600 503 return 600 print "x = "; m : print "- - - - - - - - - - - -" : END 1000 y = 7/(x^2+1)-x^3+5 : return soluzione di 7/(x^2+1)-x^3+5 = 0 tra 0 ed 3 x = 1.8714776211030086 |

Qualche animazione: uno due tre quattro cinque sei sette otto
script: piccola CT grande CT (calcolatrice2) ordina/ grafici divisori indet distanza equazioni sistemi equazioni frazioni piu per ALTRO
Qualche animazione: uno due tre quattro cinque
script: piccola CT grande CT (calcolatrice2) ordina/ grafici divisori indet distanza equazioni sistemi equazioni frazioni piu per integrali ALTRO
Qualche animazione: uno due tre quattro cinque sei sette otto nove dieci undici dodici tredici quattordici quindici sedici diciassette diciotto
script: distanza egualianza triang area polig LenArc cerchio 3p cerchio triang AB3dim ALTRO