O‘zbekiston respublikasi

restart; Iteratsiya:=proc(f,a::numeric,epsilon::numeric) local x,i,x0,x1,Err,r,l,ur;

if nops(indets(f,symbol))<>1 then ERROR("функция funksiya uz- garuvchilari soni bittadan ortiq");end if;

x:=op(indets(f,symbol));

r:=rhs(f): l:=lhs(f): ur:=r; x0:=a; Err:=1000; for i while Err>epsilon do

x1:=subs(x=x0,ur); Err:=abs(x1-x0); x0:=x1;end do; return(evalf(x1)); end proc;

Iteratsiya(x=1+0.25/x,0.25,0.0001); with(Maplets[Elements]):

maplet := Maplet (Window ( 'title'="Chiziqli bo‘lmagan tenglamani iteratsiya usuli bilan yechish", [ ["Tenglamani x=fi(x) kabi kiriting: ", TextField['TF1']()], ["Boshlangich yaqinlashishni kiriting: ", Text- Field['TF2']()], ["Xatolikni kiriting: ", TextField['TF3']()], ["Chiziqli bo‘lmagan tenglamaning sonli yechimi:"],TextBox['TB1']( not edita- ble, width='40', height='3'), [Button("Hisob",Evaluate('TB1' = 'Iter-

atsiya(TF1, TF2, TF3)')), But- ton("Tamom",Shutdown(['TF1','TF2','TF3', 'TB1']))]])):

Maplets[Display](maplet);
Hisob natijasi quyidagicha:

Demak, hisob natijasi quyidagicha: x = 1.207119741

4. 
   misol. Radiusi r bo‘lgan silindrik quvurning yotgan shaklida neft bilan q qismi to‘ldirilgan. Quvurdagi neft sathining
   

balandligini h = r (1 – cos(/2)) formuladan aniqlang, bunda  – markaziy burchak bo‘lib, u ushbu

 – sin – 2q = 0

tenglikdan topiladi.

Yechish. Bu tenglamani q = 0.25 bo‘lgan hol uchun Maple paketi yordamida yechib, r = 1.2 m bo‘lgan hol uchun h (m) ni toping:

•