Nizomiy nomidagi toshkent davlat pedagogika universiteti informatika va uni o

254 
A:=array(1..8,1..8,[]): 
for i from 1 to 8 do 
for j from 1 to 8 do 
A[i,j]:= rnd(): 
end do: 
end do: 
print(A); 
matrixplot(A,heights=histogram,axes=frame); 
82 71 98 64 77 39 86 69 
22 10 56 64 58 61 75 86 
17 62 8 50 87 99 67 10 
74 82 75 67 74 43 92 94 
1 12 39 14 21 45 66 92 
96 75 10 61 83 93 14 78 
50 36 62 49 4 24 96 74 
90 38 58 100 95 29 16 56 
>S:=[seq([seq([i,j,A[i,j]],j=1..8)],i=1..8)]: 
surfdata(S,axes=frame); 

255 
Бу мисолда А массив бир-бирига киргизилган 2 та цикл билан
тўлдирилган. Maple функцияси rand (1 … 100) процедурасинияратади.rnd( ),
унда 1 дан 100 гача бўлган тасодифий сонлар тўпланади. Matrixplot
функциясиheights = histogramпараметри билан уч ўлчовли гистограмма
ясайди. 
Cylinderplot функциясиданфойдаланиш. 
>with(plots): cylinderplot(1,theta=0..2*Pi,z=-1..1, axes=frame); 
 
 
Sphereplotфункциясиданфойдаланиш. 
>with(plots):sphereplot(1,theta=0..2*Pi,phi=0..Pi,axes=frame); 
sphereplot((1.3)^z*sin(theta),z=-1..2*Pi,theta=0..Pi, 
style=patch,color=z,axes=frame); 
 
 
 

256 
4. Тенгламаларниечиш.Тенгламаларва 
тенгсизликлартизими. Оддий 
тенглама ва тенгсизликларни ечиш учун аналогик усулда solve функциясидан 
фойдаланиш мумкин. 
>solve(a*x^2+b*x+c=0,x); 
 
,
1
2
 
b

b
2
4 a c
a
1
2
 
b

b
2
4 a c
a
Биринчи параметр сифатида тенглама ёзилса 2- сида ўзгарувчи ёзилади, 
ўзгарувчига нисбатан тенгламани ечинг. Агар ўнг тарафи 0 га тенг бўлса, унда 
ноль ва тенг белгисини ёзмаса ҳамям бўлади.

Download 10,42 Mb.