ZXTape! 0Created with Ramsoft MakeTZXFUNZIONI 0:0:0: .6;#0;8;"ATTENDERE,PREGO" /0,0;:"":0,0;:""  @R@<JBBB~J@B@@DA@00 < 00 < x@BBH@ ?D!9 , & `BÙ0 "@@H QNa4p %@? `! B|00 0< 0 0<Jh$` 0APOH `"^*HaC D)` I(  À`J9@@@600 ?0 `"S 0)IR@$740J$`D|#Dx9B*"S` @9A 8$B GlJy8%$00 ?0 $O(P2 x?ˀAT`h 4` ""T  Ddt#20$gW7?! + `a p O00N800 ?0  HAD `%`!D S AbP  F ?>@L?l BHX1(8l >z0@J8p`'|% h> 0 PD*F"4$aH  *g ?B@I8""Jx( #PKxB@-'>J8!%IHx AP|$0 i`@"2I D A$A)S!*DI!8 <3p` @H $\! E0D(DD"""I (@PF `$R`T@`JF%F!aODp T@R~4`@F0 "L R AL)!?B@H|I# >$H<VL0+H&e$oj8:#c(0T@DLx H *IS6BT$!*EP<dDh4%S8D`PXa@"n ?A"$"h8!$I tp#8]" $8H `?p 0 3A R$&1w)T"A(DITA D$EP*HP`<6aT h%A<LQp. @B`l $) pHFr bWD  ` C0"A@HDQJH$_`"?@7`a8 0 Z Ap?@G6`Td0*H "$6* pLA"$(#8a #xxxxxxxxxxxxxxxxxxxxxxxxxxxx88888888888888888888funzioni !!  1983 by Nuova NEWEL  f(x=f$x)=f$ <r(x*,c)=((.5+x*10 ^c))/(10 ^c) mn=1200 'z=0:u=1:u:z:9 : a(256) f(x=f$x)=f$ yy=175:xx=255 z *"Inserisci una funzione del tipo y=f(x)" ("y=";f$:f$=""40( -mn 2"Inserisci i limiti delle x" < 5100 G#:10 ,12 ;u;"ASPETTA" Ky1=1e38vQ:y2=-y1 Pcff=xx/(x2-x1) Q a=uxx+u Ra(a)=f((a-u)/cff+x1) Sa(a)>y2y2=a(a) Ta(a)"; _ 900 dr$="n"120x n"y1=y2cffy=(mid/y1):415 s-cffy=yy/(y2-y1):mid=(-y1*cffy):415 xK'"Vuoi che le ordinate siano ugua-li alle ascisse ? (s/n) ->";:900 r$="n"220 cffy=cff 415 /'"Che rapporto tra ascisse e ordinate ?" "-->";n n<1e-2z# =230 cffy=cff*n 415  1 $(mid=87Wy1*y2yya=a-uy:400 #nz-x1*cff,n:a=a-uy:400  md=mid:au=z  850R midyymd=yy:au=mid-yy a=zxx $n=au+a(a+u)*cffy:n>yy-mdn=yy-md n<-mdn=-md a,md:u;z,n a  250 %"Vuoi la griglia ?(s/n+ENTER) ";r$ r$="n"620l a=(u+(x1/ux))*ux n=cff*(a-x1) $nyya=a-uy:5600 D#nzz,n:xx,z:a=a-uy:5600 Nmidzmidyyz,mid:z;xx,z Xx1*x2a(a)a(a)a(a+1))700 0ai=(a-2)/cff+x1:aa=a/cff+x1:7000X -"x=";r(at,4),"y=";r(f(at),4) a  5000 :"massimi:"'''  a=u+uxx 3(a(a-1)100d)) U;ux=(u+9 *(cff<10 ))/(u+9 *(cff>100d)) W "y=";f$ \'"da ";x1;" a ";x2 a.'"rapporto tra x e y =";r(cff/cffy,4) f.'"graduazione dell'asse x ogni"'ux;" unita'" j18,z;ux;"=":32 ,107k:ux*cff,z k.'"graduazione dell'asse y ogni"'uy;" unita'" l212 ,z;uy;"=":32 ,75K:uy*cffy,z p)'"ymax=";r(y2,)'"ymin=";r(y1,)''' u 5000 : z;1;"L";8; z:r$=:r$r$>" ";" "  e=1e-8f+w  fa=f(a0) f=u502 m=(a0+a1)/2  fm=f(m) fm<1e-20><d"x=";m: $!fm*fa<0a1=m:1070. ) a0=m:fa=fm .0(a0-a1)1E-8" L \7:1::" *** ANALISI DI FUNZIONI ***";,9 ;"di Dario Mella"  n=5 '''"Della funzione"'"y=";f$''"vuoi:"''  n;"1) Zeri" n;"2) Massimi e minimi"  n;"3) Integrale definito" !n;"4) Valutazione in un punto"  n;"5) Derivata in un punto"  n;"6) Grafico + 1) e 2)"  n;"7) Cambiare funzione"''' ("Premi 1,2,3,4,5,6 o 7 ->";:900  r$<"1"r$>"7"1280 r$="1"1500  r$="7" (r$="6"502 2r$="4"1600@ <r$="5"1700 Fr$="3"1900l Pr$="2"2000 9:"In che intervallo cade la solu- zione di ";f$;"=0 ?" "(una sola soluzione)" 5100:a0=x1:a1=x2 a0a11530 f(a0)*f(a1)z''"Questi dati sono inaccettabili perche' ";f$;"=0"'"non ha una e una sola soluzione in [";a0;",";a1;"]":400:mn  1000: "&''"altre radici ? (s/n)";:900 ,r$"n"1530 6mn E J'"per quale x vuoi f(x) ?" T"x=";x Y"f(";x;")=";f(x) ^&'"altri valori ? (s/n) ";:900 hr$"n"1620T rmn h=1e-3wn  !"per quale valore vuoi f'(x) ?" "x=";x 3"f'(";x;")=";r((f(x+h)-f(x-h))/(2*h),)  '"altri valori ? ";:900 r$"n"1720 mn  h=(x2-x1)/n  i=z x0=x1  f=1n @i=i+5/9 *f(.5*(x0+x0+h-.7745966924FK*h)) ,i=i+8/9 *f(.5*(x0+x0+h)) Ai=i+5/9 *f(.5*(x0+x0+h+.77459666924FK*h)) ! x0=x0+h: "f &i=i*h/2 0 m o/"Qual' e' l'intervallo di inte- grazione ? " r 5100 s>'"con quale grado di precisio- ne (a/b/c) ? ";:900 tr$<"a"r$>"c"1907s u8n=8*(r$="c")+16*(r$="b")+32 *(r$="a") v 1800 ('"l'integrale da "'x1,"a ";x2'"e' :";i ,'"un altro integrale ? (s/n)";:900: r$"n"1900l mn X:"Inserisci l'intervallo in cui vuoi siano calcolati il valore minimo e massimo"'' 5100:ai=x1:aa=x2  7000X f"il minimo della funzione,tra:"'x1,"e ";x2'"e' in x=";r(at,4)'"e vale y=";r(f(at),4) f$="-("+f$+")" ai=x1:aa=x2  7000X f$=f$(̱f$-u) H'"Il max e' in x=";r(at,4)'"e vale y=";r(f(at),4)  ,'"un alro intervallo ? (s/n) ";:900  r$"n"2020 mn &''"premi un tasto";:900: ("da:";x1;" a:";x2:x2x15100  b,e=1e-5p'ŬF:e1=1e-7iV:e2=1e-6m7 lr=(5-u)*.5 v l=(aa-ai)*r  a1=aa-l  a2=ai+l  q1=f(a1)  q2=f(a2) l=r*l q1q2qi=q1:7170 qa=q2 ai=a1 qi=q1 a1=a2  a2=ai+l q1=q2  q2=f(a2)  7230> aa=a2  qa=q2 a2=a1  a1=aa-l *q2=q1 4 q1=f(a1) >a1a2'"CON I DATI FORNITI NON RIESCO A EFFETTUARE I CALCOLI RICHIESTI premi 'c' per cambiare dati op- pure 'm' per tornare al menu' ";:900:(menu*(r$"c")+2000*(r$="c")) Hle7080 Rqi>e27270f \(qi-qa)