MATHEMATIC**** ZX MATHEMATICS **** ! 1984 YT2FSG Goran Stankovic  8000@ $7:7:1:0  1------------- koordinatni sistem -------------- %"Da li je F. definisana? (y/n)";k$ k$="y"30 "F(x)= ";h$ n(x)=h$ f$=h$ 6"Xmin=";Xmin,"Xmax=";Xmax:"Ymin=";Ymin,"Ymax=";Ymax Ymin=Ymax34" !:0,Ymin*(175/(Ymax-Ymin)):255,0 "Xmin=Xmax38& #:Xmin*255/((Xmax-Xmin)),0:0,175 $ 110n % 150 &; koX=255/((Xmax-Xmin)):koY=175/(Ymax-Ymin): '6t=0:------ crtanje grafika funkcije --------- (d=0255 *x=Xmin+d/koX +x=071G -y=(f$*koY)+(Ymin*koY) /,y>175y<1t=0:70F 0/t=0d=0d,y:t=1:70F 21,y-oldy Foldy=(y+.5) Gd K.2~L,-24 P"Ponovo? (y/n)";s$ Us$="n"8000@ Z"Brisati? (y/n)",l$ [l$="y"96` \ 22 ` a 22 d n; koX=255/((Xmax-Xmin)):koY=175/(Ymax-Ymin): xLk=0̺(Ymax):Xmin*koX+1,(Ymin*koY+koY*k):2,0:k z]k=0̺(Ymin+1)-1:Xmin*koX+1,(Ymin*koY+koY*k):2,0:k Lk=0̺(Xmax):(Xmin*koX+koX*k),Ymin*koY+1:0,2:k ]k=0̺(Xmin+1)-1:(Xmin*koX+koX*k),Ymin*koY+1:0,2:k  #(Ymax*koY/8),0;Xmin ;(Ymax*koY/8),27;(Xmax*100d)/100d -21,1+(Xmin*koX/8);Ymin ,0,1+(Xmin*koX/8);Ymax  #1;"f(x)=";f$  1----------------------------------------------- &0:0:6:1: 21,0;" Ovaj program moze naci samo" 5 2,0;"jednu nulu u zadatom intervalu." 14,0;" Da bi resenje bilo sigurno" 05,0;"pronadjeno, potrebno je da " 16,0;"trazena nula bude i jedina u" $7,0;"intervalu [a,b]" D9 ,0;"Za odredjivanje [a,b] koristite program broj 1." "Unesite funkciju"'"f(x)=";f$ f(x)=f$ " Interval "'"a=";a,"b=";b ?:''" Funkcija"'"f(x)=";f$''" Interval"'"a=";a,"b=";b k=1:p=a u=f(p) h=b-p x=b u=0420 u>0280 f(b)=0340T f(b)<0300, f(b)>0320@ f(b)<0320@ "f(b)=0340T ,!k=0:x=0:430 6 p=x:u=v @h=h*.5:x=h+p Jx-p=0430 Tv=f(x):k=k+1 ^v=0430 hv>0400 ru<03106 |u=0420 u>0320@ u<0320@ u>03106 x=p <''"Resenje x=";x''"Pronadjeno je u ";k;"-oj iteraciji " .2~L,-24 "Ponovo? (y/n)";s$ s$="y"180  8000@ 1----------------------------------------------- :"NUMERICKA INTEGRACIJA"  "Unesi funkciju"'"f(x)=";a$ y(x)=a$ "Donju granicu"'"a=";a "Gornju granicu"'"b=";b '::"Integral funkcije :"''"f(x)=";a$ :"Na segmentu [";a;",";b;"]" $a1=(b-a)/2:a2=(b+a)/2 &Gt=.1834346425~;Jz:i=(y(t*a1+a2)+y((-t)*a1+a2))*.36268378349Y 0It=.5255324099J:i=(y(t*a1+a2)+y((-t)*a1+a2))*.3137066459 (Q+i :It=.7966664774KU:i=(y(t*a1+a2)+y((-t)*a1+a2))*.2223810345~cښ+i DIt=.9602898565uՎX:i=(y(t*a1+a2)+y((-t)*a1+a2))*.1012285363}OP'+i l :"I=";i*a1 q.2~L,-24 v"Ponovo? (y/n)";s$ s$="y"500  8000@ @2------------------------------------------------ J0:0:7: 20,0;"MATEMATIKA - ANALIZA FUNKCIJA" 04,0;"1. Crtanje grafika funkcije" 25,0;"2. Odredjivanje nula funkcije" -6,0;"3. Numericka integracija" !"Unesi redni broj programa: ";a a=110 a=2180 a=3500  8120 aKnHx^2Fx^2mima mima oLo