ZXTape! 0Created with Ramsoft MakeTZXMATEMATICA8 8:  "MATEMATICA" 5,0; ("" MATEMATICA@| 4P@2x@"D(B@ H X(0bd(`"(H,4 JB `E(   $` (!B& XaB  P@D`(+D   !!  $(||@ !q j@ @ eB!@  JT0 P@t`@ppJ<~||`So |~@~~UF88||,CHAz <bBBDC9DB@BB[Pp> )BDgJ&} DBDXdd~()PDB@BB?H_(BDD>\>!2p6(~||! tz| ؐ~~@~~9@Aр@ BD~ԇ  UX 6DTL0Lp(a BB@BB%# @A`B(BV '@ ODT `BB@BB?@'`B(B>@zB~||( U~B~BB @|~隀x& <s~ P Yx R|p G@1 00  0  00  00  0  00 <<0<  0  0  0?<<0<  0  0  0?<<0<  0  0  0?<<0<  0  0  0? 00  0  00  00  0  00 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< MATEMATICATjTjVjiMATEMATICA 1  1983 G.B.C. ITALIANA Divisione REBIT  r  copyright 1983 Mario Bontempi-Salo' NO WARRANTIES :4:0:5 Y d%0,13 ;1;" MENU'" xH1;2,0;"Inserisci l'opzione desiderata :"  "01-M.C.D ;m.c.m" "02-FATTORI PRIMI" "03-AREA DI UN POLIGONO" "04-ELEMENTI DI UN TRIANGOLO" "05-ANALISI DI DUE VETTORI" #"06-SISTEMI DI EQUAZIONI LINEARI" ""07-RADICI DI EQUAZ.QUADRATICHE" #"08-RADICI REALI DI UN POLINOMIO" "09-MASSIMO DI UNA FUNZIONE" "10-DERIVATE" "11-GRAFICO DI FUNZIONI" "12-INTERPOLAZIONE LINEARE" "13-INTERPOLAZIONE CURVILINEA" "14-INTEGRAZIONE DI FUNZIONE" "15-ABBANDONO DEL PROGRAMMA" (.20~L,30:.20~L,30 "Opzione n. ? ";a$ a$="m"90Z a$="1"300, a$="2"400 a$="3"500 a$="4"600X a$="5"800  a$="6"1000 a$="7"1300 a$="8"1400x a$="9"1600@ a$="10"1800 a$="11"1900l a$="12"3000 a$="13"4000 a$="14"5000 a$="15"9001)# 212 , opzione 1 -(.30,30:.30,30 0)4:5:0:9000(#: 2,1;1,9 ;"01-M.C.D;m.c.m" 3 n=3062 4&'5;"'m' per tornare al MENU'" 6)"Primo numero ? ";a$:a$="m"30 7a$=""3106 8?i=1̱a$:a$(ii)<480ůa$(ii)>5793106 9i @+"Secondo numero ? ";b$:b$="m"30 A;i=1̱b$:b$(i)<480ůb$(i)>579320@ B4i:a$="0"b$="0"md=0:s=0:336P Cb$=""320@ Db$="0"c$=b$:b$=a$:a$=c$ E'a$>15űb$>158999'# Ja=a$:b=b$ K#c=a/b:r=((c-(c))*b+0.05|L) Lr=0md=b:335O Na=b:b=r:331K Os=((a$)*(b$))/md P'"M.C.D (";a$;",";b$;")= ";md R!'"m.c.m (";a$;",";b$;")";"= ";s T5"Premi ENTER per continuare ";a$:a$="m"30 U 3062 fattori primi (.30,30:.30,30 )4:5:0:9000(#: .1;1,8;"02-FATTORI PRIMI"  n=406 &'5;"'m' per tornare al MENU'" 3"Digita il numero (non 0) ";a$:a$="m"30 a$=""410 ?i=1̱a$:a$(ii)<480ůa$(ii)>579410 i a$="0"410 F'"Fattori di ";a$;" : ":7,18;1;"ASPETTA,GRAZIE" a$>10 8999'# z=a$:d=0:c=1 i=2z/2  s=0 z/iɺ(z/i)428 ,z=z/i:d=d+1:s=s+1:420 s=0433 V1;i;"^";s;:c=c*(i^s):" (=";i^s;")":"prodotto= ";c:c$=c:c$=a$434 i=z/2s=0i i i7,18;0;" ":.20~L,30:.20~L,30:d=0a$;"^1" 5"Premi ENTER per continuare ";a$:a$="m"30  406 area di un poligono (.30,30:.30,30 )4:5:0:9000(#: 41;1,5;"03-AREA DI UN POLIGONO" :n=506 &'4;"'m' per tornare al MENU'" 6"Numero vertici del poligono?";a$:a$="m"30 a$=""510 ?i=1̱a$:a$(ii)<480ůa$(ii)>579510 i a$="0"510 a$>28999'# $x((a$)+1):y((a$)+1)  i=1̰a$  Ef=522 :"Coordinata X del vertice "; s$:570::x(i)=s$  Ef=523 :"Coordinata Y del vertice "; s$:570::y(i)=s$  Oi/9 =(i/9 ):1;1,6;"3-AREA DI UN POLIGONO": "Vertice ";i "X=";x(i),"Y=";y(i) i :x((a$)+1)=x(1):y((a$)+1)=y(1)  a=0  i=1̰a$ "-a=a+(x(i)+x(i+1))*(y(i)-y(i+1)) $i & '1;"AREA=";(a/2) 05"Premi ENTER per continuare ";a$:a$="m"30 1n :s$="m"30 ;7g=1̱s$:s$(gg)<46.ůs$(gg)>579f <g = s$=""f >s$>12 8999'# ? Xelementi di un triangolo Y(.30,30:.30,30 [ q=0 \a(3):s(3) ])4:5:0:9000(#: ^91;1,3;"04-ELEMENTI DI UN TRIANGOLO" _ n=606^ `&'4;"'m' per tornare al MENU'" aq=1691 bO:1;"Digita gli elementi che conosci nell'ordine in cui compaiono: " dr:"1-angolo,lato,angolo"''"2-lato,angolo,lato"''"3-angolo,angolo,lato"''"4-lato,lato,angolo"''"5-lato,lato,lato" f$"Opzione ? ";a$:a$="m"30 g8a$=""ůa$<491ůa$>535űa$>1614f ha$="5"684 i`"Vuoi inserire gli angoli in gradi (g) o in radianti (r) ? ";g$:g$"r"g$"g"617i jg=/180 ka$="4"672 la$="3"660 ma$="2"640 p:"Opzione ";a$ rZf=626r:"Digita il 1.angolo ";a$:700:a(1)=a$:a(1)=0f s!g$="g"a(1)=a(1)*g tVf=628t:"Digita il lato ";a$:700:s(3)=a$:s(3)=0f v[f=630v:"Digita il 2. angolo ";a$:700:a(2)=a$:a(2)=0f w!g$="g"a(2)=a(2)*g xTa(3)=-a(1)-a(2):a1=a(3):a1=0a1=.00000001f+w z(s(1)=s(3)*(a(1))/a1 |(s(2)=s(3)*(a(2))/a1 ~ 690 Yf=640:"Digita il 1. lato ";a$:700:s(1)=a$:s(1)=0f Wf=642:"Digita l'angolo ";a$:700:a(3)=a$:a(3)=0f !g$="g"a(3)=a(3)*g Yf=644:"Digita il 2. lato ";a$:700:s(2)=a$:s(2)=0f as(3)=(s(1)^2+s(2)^2-2*s(1)*s(2)*(a(3))) 3a(2)=((a(3)*s(2))/s(3)) $a(1)=-a(3)-a(2)  690 [f=660:"Digita il 1. angolo ";a$:700:a(3)=a$:a(3)=0f !g$="g"a(3)=a(3)*g [f=662:"Digita il 2. angolo ";a$:700:a(2)=a$:a(2)=0f !g$="g"a(2)=a(2)*g Vf=664:"Digita il lato ";a$:700:s(3)=a$:s(3)=0f Qa(1)=-a(2)-a(3):j=a(3):j=0j=.00000001f+w )s(2)=((a(2))*s(3))/j )s(1)=((a(1))*s(3))/j q=1::606^ Yf=672:"Digita il 1. lato ";a$:700:s(1)=a$:s(1)=0f Yf=674:"Digita il 2. lato ";a$:700:s(2)=a$:s(2)=0f Wf=675:"Digita l'angolo ";a$:700:a(1)=a$:a(1)=0f !g$="g"a(1)=a(1)*g 3a(2)=((a(1)*s(2))/s(1)) >s(3)=(s(1)*a(2))+(s(2)*a(1)) $a(3)=-a(1)-a(2) q=1::606^ f=684:i=13:"Digita il ";(i);". lato ";a$:700:a$=0"Un triangolo non ha lati nulli. Premi ENTER per ridigitare ";a$:684  s(i)=a$:i  7000X ka(1)=((s(1)^2-s(2)^2-s(3)^2)/(-2*s(2)*s(3))) 5a(2)=((s(2)*(a(1))/s(1))) $a(3)=-a(2)-a(1) q=1::606^  i=13 "Lato ";i;"=";(s(i)*1000+.5)/1000'"angolo opposto ";(a(i)*1000+.5)/1000;" radianti; "'" ";(((a(i)/)*180)*100d+.5)/100d;" gradi": (s(i)*1000+.5)/10000ź(a(i)*1000+.5)/10000"Non ci possono essere lati o angoli negativi o nulli.La soluzione pertanto non esiste":"Premi ENTER per continuare ";d$::q=0:606^ i ;"Premi ENTER per continuare ";a$::q=0:606^ q=1::606^: a$="m"30  a$=""f 0x=1̱a$:a$<46.ůa$>579f:x a$>10 8999'#   analisi di due vettori !(.30,30:.30,30 #)4:5:0:9000(#: $Px(2):y(2):z(2):m(2):a(3,2):q(2) %s=180/ &71;1,3;"05-ANALISI DI DUE VETTORI" ' n=806& (&'4;"'m' per tornare al MENU'" * q=1 ,:1;"Vettore 1 :" .Af=814.:"Digita la coordinata X ";a$:950:x(q)=a$ 0Af=8160:"Digita la coordinata Y ";a$:950:y(q)=a$ 2Af=8182:"Digita la coordinata Z ";a$:950:z(q)=a$ 4%"X=";x(q);" ; Y=";y(q);" ; Z=";z(q) 5.10}L,0 6=q=q+1:q<3:1;"Vettore 2 :":814. 7.10}L,0 :i=12 <'m(i)=(x(i)*x(i)+y(i)*y(i)+z(i)*z(i)) >m(i)=0846N ? 840H @ j=q(i)/m(i) Bj=0j=1e-9c p_A Dw=(1-j*j) F a=(w/j)*s G H&q(i)=x(i):832@:a(1,i)=a J&q(i)=y(i):832@:a(2,i)=a L&q(i)=z(i):832@:a(3,i)=a Ni P=j=0:m(1)=0m(2)=0857Y R]j=(x(1)*x(2)+y(1)*y(2)+z(1)*z(2))/m(1)/m(2) Tj0855W VJ=90Z:857Y W*tr=(1-j*j):tr<0tr=0 Xw=(tr):j=(w/j)*s Y Zi=12:1;"V";i;0;"(";x(i);",";y(i);",";z(i);")"'"Ampiezza: ";m(i)'"Angolo con l'asse X: ";a(1,i)'"Angolo con l'asse Y: ";a(2,i)'"Angolo con l'asse Z: ";a(3,i)::i [j<0j=j+180 \?"Angolo tra V1 e V2: ";((j*1000)+.5)/1000 ^h'"V1+V2: ";0;"X=";x(1)+x(2);";Y=";y(1)+y(2);";Z=";z(1)+z(2) `h'"V1-V2: ";0;"X=";x(1)-x(2);";Y=";y(1)-y(2);";Z=";z(1)-z(2) bZ'"Prodotto scalare : ";x(1)*x(2)+y(1)*y(2)+z(1)*z(2) d"Prodotto vettoriale :";'"X=";y(1)*z(2)-z(1)*y(2);";Y=";z(1)*x(2)-x(1)*z(2);";Z=";x(1)*y(2)-y(1)*x(2) f5"Premi ENTER per continuare ";a$:a$="m"30 h :806& a$="m"30  a$=""f 3i=1̱a$:a$(i)<45-ůa$(i)>579f  a$="-"f i a$>10 8999'#  sistemi di equazioni (.30,30:.30,30 )4:5:0:9000(#: 51;1,5;"06-SISTEMI DI EQUAZIONI" n=1006 &'5;"'m' per tornare al MENU'" pf=1010:"Quante equazioni ? ";a$:1200:r=a$:r>20"Non c'e'abbastanza RAM.ENTER ";a$:f r=01010 a(r+1,r+1) 1;'"Coefficienti:"  j=1r i=1r+1 i=r+11030 Vf=1025:(j);".Equazione:";(i);".coefficiente=";a$:a$>12 8999'# 1200:a(j,i)=a$  1035  [f=1030:(j);".Equazione:";"costante=";a$:1200:a(j,i)=a$  i:1250  5d=0:o=1r:a(j,o)=0d=d+1  .o:dr"Equazione non valida.ENTER ";a$:n d=0:j r21046 Tdx=(a(1,3)*a(2,2))-(a(1,2)*a(2,3)) Tdy=(a(1,1)*a(2,3))-(a(1,3)*a(2,1)) Vddxy=(a(1,1)*a(2,2))-(a(1,2)*a(2,1)) T(dx=0dy=0)ddxy0''1;"SISTEMA IMPOSSIBILE":1150~ j=1r:i=jr a(i,j)01055 i j E''1;"IL SISTEMA NON HA SOLUZIONI";'"ACCETTABILI":1150~ k=1r+1 $ x=a(j,k) )a(j,k)=a(i,k) . a(i,k)=x 3k 4)a(j,j)=0a(j,j)=.000000001c p_@ 8y=1/a(j,j) =k=1r+1 Ba(j,k)=y*a(j,k) Gk L i=1r Qi=j1126f V y=-a(i,j) [k=1r+1 `a(i,k)=a(i,k)+y*a(j,k) ek fi jj k o i=1r ta1;"Valore ";i;".incognita";0;"=";(a(i,r+1)*1000+.5)/1000 yi ~5"Premi ENTER per continuare ";a$:a$="m"30 :1006  a$=""f a$="m"30 q=1̱a$ $a$(q)<45-ůa$(q)>579f q: :i=1r+1 i=r+11258 i;".=";a(j,i);";";  1265 "cost.=";a(j,i) i: RADICI DI EQ. QUADRAT. (.30,30:.30,30 )4:5:0:9000(#: <1;1,1;"07-RADICI DI EQUAZ.QUADRATICHE" n=1306 &'4;"'m' per tornare al MENU'" i=13 Pf=1310:"Digita il ";(i);".coefficiente ";a$:1200:1320(:i Fa=0b=0c=0''"Questa e'un'identita'":1350F  !a=0b=01370Z !a=01360P # a;"x^2"; $b-1"+"; %b;"x";:c-1"+"; &(c;"=0"''1;"Soluzioni:";0 ' 1325- ( i=1Ʊa$<15a=a $ )i=2Ʊa$<15b=a$ *i=3Ʊa$<15c=a$ +a$158999'# , -s=b*b-4*a*c 2 r=((s)) 7s<01345A <7'"X1=";(-b-r)/(2*a);" ; X2=";(-b+r)/(2*a) = 1350F Av'"Radici complesse:"'"X1=";-b/(2*a);"-";r/(2*a);"*(-1)"'"X2=";-b/(2*a);"+";r/(2*a);"*(-1)" F5"Premi ENTER per continuare ";a$:a$="m"30 G:1306 P''"X=";-(c/b):1350F Z'''"Soluzione impossibile":1350F xradici di polinimio y(.30,30:.30,30 {)4:5:0:9000(#: } g=0 ~>1;1,0;"08-RADICI REALI DI UN POLINOMIO" nn=1405} &'4;"'m' per tornare al MENU'" g=1f if=1410:"Grado dell'equazione ?";a$:a$>2"Non c'e'abbastanza RAM.ENTER";a$:1410 1200:n=a$ a(n+2):b(n+2)  "Coefficienti:": i=1n+1 Tf=1422:"Coefficiente di X^";(n+1-i);"=";a$:a$>12 8998&#  1200:a(n+2-i)=a$ &N+1-I;".=";A(N+2-I);";"; i  i=1n b(i)=a(i+1)*i i 9f=1445:"Ipotesi? ";a$:a$>12 8998&# 1200:x=a$ -10 ,9 ;1;"ASPETTA,GRAZIE"  q=0 #s=1:f1=0:f0=0  q=q+1 i=1n+1 f0=f0+a(i)*s f1=f1+b(i)*s  s=s*x:i 3f0=0f=1478:g=1::1406~ f1=01482  s=x-f0/f1 x=s1484  1480 ''"X=";x:1490 x=s:q>100d1500  1450 'f=1483:g=1::1406~ $''"Derivata=0 a X=";x':1490 'f=1485:g=1::1406~ /'"Radice=";x''"F(";x;")= ";f0''"Derivata=";f1 8"Vuoi un'altra radice? (s/n) ";a$:a$="s"1445 #a$="n"::g=0:1406~  1490 'f=1503:g=1::1406~ D''"Completate 100 iterazioni:"''"X=";x''"F(x)=";f0''"Derivata=";f1 B"Devo fare altre 100 iterazioni ?(s/n) ";a$:a$="s"1449 a$="n"1490  1510 @massimo di una funzione A(.30,30:.30,30 C)4:5:0:9000(#: F81;1,3;"09-MASSIMO DI UNA FUNZIONE" Gnn=1605E H&'4;"'m' per tornare al MENU'" J"Funzione ? y=";q$:1619S:o=1̱q$:(q$(o)<178ůq$(o)<40()(q$(o)>579ůq$(o)>187)Ưq$(o)120x1610J Oo P 1625Y Sq$=""1610J Tq$="m"30 U Y ''"y=";q$ ^tf=1630^:"Estremita' sinistra dell'intervallo ? ";a$:1631_:1200:x1=a$:1635c _a$>12 8998&# ` chf=1635c:"Estremita' destra dell'intervallo ? ";a$:1631_:1200:x4=a$ hof=1640h:"Incremento tra i punti di ricerca nell'intervallo ? ";a$:1631_:1200:d=a$ m i=1 rx2=x1+.5*(x4-x1-d) w x3=x2+d |x=x2:y2=q$ x=x3:y3=q$ y23*d1650r x5=.5*(x2+x3) "''"Xmax=";x5'"Ymax=";:x=x5:q$ 1"Premi ENTER per continuare ";a$::1606F L''"Compiute 100 iterazioni.":"Altre 100 (s/n) ? ";a$:a$="s"1650r a$="n":1606F  1720  derivate  (.30,30:.30,30  )4:5:0:9000(#: *1;1,10 ;"10-DERIVATE" nn=1805  ('4;"'m' per tornare al MENU'": "Funzione ? y=";q$:o=1̱q$:(q$(o)<178ůq$(o)<40()(q$(o)>579ůq$(o)>187)Ưq$(o)120x1810 O Q$=""1810  '"y=";q$: !Cf=1825!:"Derivata a X=";a$:1631_:1200:x1=a$ "p=x1 0x=x1+.000100sQX 2s=x1+.000099sO8d 5-d3=q$:a=x:x=x1:d4=q$:d=(d3-d4)/(a-x1) 6)op=a-x1:op=0op=.00000001f+w 7d=(d3-d4)/op 8 x=s:d3=q$:a=x:x=x1:d4=q$ 9)op=a-x1:op=0op=.00000001f+w :d1=(d3-d4)/op ;D"Derivata a X=";p;": ";((2*d1-d)*100000CP)/100000CP ?3"Altra derivata ? (s/n) ";a$:a$="s"1825! @a$="n":1806 D 1855? lgrafico di funzioni m(.30,30:.30,30 n h=0 p)4:5:0:9000(#: r41;1,5;"11-GRAFICO DI FUNZIONI" t&'4;"'m' per tornare al MENU'" u z=0 vBf=1910v:"Funzione ? y=";q$:1911w:s$=q$:1916| wjo=1̱q$:(q$(o)<165ůq$(o)<40()(q$(o)>579ůq$(o)>201)Ưq$(o)120xf zo { |?o=1̱s$-1:q$(o)="/"q$(o+1)="x"h=1 }o s$=""1910v z=0''"y=";s$ :"Dimensionamento massimo (s/n)?";a$:a$="n"1938 a$="s"1925 a$="m"30 Pf=1925:"Intervallo di studio: da X=";q$:1911w:q$=""1925 x0=q$ x0=q$ 9f=1930:"a X=";q$:1911w:q$=""1930 x1=q$:2050 Of=1938:"Intervallo (simm. a X=0) =";q$:1911w:q$=""1938 s=(q$)/2 .z=0''"Intervallo da X=";-s;" a X=";s z=0100d: T1:0,87W:255,0:127,0:0,175  r=0 i=-128127  h=1i=0i=1 x=i*s/128:y=s$ $y>87Wr=0:1995 (y<.0001sQXy<-1e12hԥy0)y>1e12hԥ"La funzione ha assunto valori fuori-range.Premi ENTER.";a$::"A X=";x;", Y=";y:200::1906r <0:ri+128,y+88X:r=1:1995 0:1,y-y0 y0=(y+.5) i 2"Vuoi la stampa (s/n)?";a$:a$="s"::"Y=";s$ 7"Pulisci lo schermo (s/n)?";a$:a$="s":1906r z=1:1910v 1z=0''9 ;1;"ASPETTA,GRAZIE" d=(x1-x0)/256 y(256)  x=x0:y(1)=(s$)  min=y(1):max=y(1) i=2255 x=x+d &h=1x=0x=.000001m7  y(i)=(s$) !(y(i)<.0001sQXy(i)<-1e12hԥy(i)0)y(i)>1e12hԥ"La funzione ha assunto valori fuori-range.Premi ENTER.";a$::"A X=";x;", Y=";y(i):200::1906r %y(i)>maxmax=y(i) *y(i)d/2x1 :"-x0/d,0:0,175 >+min>dy/2max500"Sono troppi.Considerane solo 200Premi ENTER per continuare";a$:p=200  x(p):y(p)  w=1p 8f=4020:(w);".punto:X=";a$:950:x(w)=a$ pf=1w:fwx(w)=x(f)"Non devi introdurre numeri con stessa ascissa.Premi ENTER ";a$:w=w-1:w f 8f=4025:(w);".punto:Y=";a$:950:y(w)=a$ w ?f=4035:"Punto da interpolare:X=";a$:950:a=a$  b=0  j=1p  t=1  i=1p i=j4055 t=t*(a-x(i))/(x(j)-x(i)):i i  b=b+t*y(j) j "X=";a;" ; Y=";b 9"0=stessa curva;1=nuova curva ";a$:a$="1"4006 a$="0"4035  4070 integrazione di funzione (.30,30:.30,30  k=0:r=0 91;1,3;"14-INTEGRAZIONE DI FUNZIONE" n=5003 &'4;"'m' per tornare al MENU'"  u"1-REGOLA DI SIMPSON 2-REGOLA TRAPEZOIDALE 3-QUADRATURA GAUSSIANA Opzione n. ? ";a$ a$="m"30 s$="1" "a$"1"a$"2"a$"3"5010 ,d$=a$:d$="2""Integrazione Trapezoidale" ,d$="3""Integrazione:Quadratura di Gauss" d$="1"1;"Integrazione:SIMPSON":"1=equazione nota 2=equazione sconosciuta; n.?";a$:s$=a$:s$"1"s$"2"5020 5f=5030:s$="1""Funzione Y=";q$:1911w s$="1"" ";1;"Y=";q$ Df=5040:"Limite inf. di integrazione?";a$:950:a=a$ Df=5045:"Limite sup. di integrazione?";a$:950:b=a$ /a=b"Intervallo nullo.ENTER";a$:5040 ""Integrazione da X=";a;" a X=";b d$="2"6050 d$="3"6500d Vf=5050:"Unita'di misura di X=";a$:950:x1=a$:x1=05050 t=(b-a)/x1:u=(t):tu"L'unita'di misura deve dividere l'intervallo in parti uguali; premi ENTER per ridigitarla";a$:5050 "Unita' di misura di X=";x1 s$="1"5070 Zf=5055:"Valore di f(x) al limite inf. d'integrazione:Y=";a$:950:y1=a$ Zf=5060:"Valore di f(x) al limite sup. d'integrazione:Y=";a$:950:y2=a$  5075 x=a:y1=q$:x=b:y2=q$ c=0:d=0 j=1t-.5 s$="1"5095 _f=5090:"Valore di f(x) all'intervallo ";(j);" (X=";(a+j*x1);")=";a$:950:y=a$  6000p x=a+j*x1:y=q$ p$j=(j/2)*26010z uc=c+y:6015 zd=d+y j @'1;"Integrale =";x1/3*(y1+4*c+2*d+y2) 9"1=stessa curva;2=nuova curva ";a$:a$="2"5006 a$="1"5040  6025 integrazione trapezoidale Mf=6055:"Numero di intervalli ? ";a$:950:n=a$:n=0f n;" intervalli";" ";  i=0  d=(b-a)/n  j=abd x=j:i=i+q$ j 3x=a:y1=q$:x=b:y2=q$:i=(i-(y1+y2)/2)*d 1;"Integrale=";i  6025 dintegrazione gaussiana iB.076526521},.15275339~kbx,.22778585~i@,.14917299~,.37370609?Vg,.14209611~,.510867.,.13168864~c ,.63605368"i,.11819453}rG,.74633191?,.10193012}P,.83911697V^,.083276742}*,.91223443i2,.062672048}Z3,.96397193vJ,.04060143|&M`,.9931286~= ,.017614007{K@ nMf=6510n:"Numero di intervalli ? ";a$:950:n=a$:n=0f on;" intervalli";" "; ss=(b-a)/n/2 xt=a+s } r=0  i=1n  p=0 j=110 f:g 1x=s*f+t:y1=q$:x=t-s*f:y2=q$:p=p+g*(y1+y2) j: r=r+p*s:t=t+2*s:i 1;"Integrale=";r  6025 X2s(1)s(2)+s(3)7010b Y.s(2)s(1)+s(3)7010b Z.s(3)s(1)+s(2)7010b ] bN"A questi lati non corrisponde alcun triangolo reale.ENTER";h$:614f @63999:"" AZ236077\,249:23562 \,2:236099\,502:23561 \,15: #&n=nn #'("Numero troppo grande.ENTER ";a$::n #( #)Oa=(23730\+256*23731\)-(23653e\+256*23654f\) #*ib=(23653e\+256*23654f\)-23755\+(65535-(23730\+256*23731\)) #-7:0:7::''"Bytes :":'"Da utilizzare ";a:'"utilizzati ";b:236077\,60<:7:7:7 &