|
Nizomiy nomidagi toshkent davlat pedagogika universiteti informatika va uni o
Pdf ko'rish
|
| bet | 100/252 | | Sana | 27.11.2023 | | Hajmi | 10,42 Mb. | | #106552 |
Bog'liq УМК Ихтисос Даст Воситаларwith(plots):
rnd:=rand(1..100):
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);
133
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);
Бу мисолда А массив бир-бирига киргизилган 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);
134
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);
3. Тенгламаларниечиш.Тенгламаларва
тенгсизликлартизими. Оддий
тенглама ва тенгсизликларни ечиш учун аналогик усулда 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 га тенг бўлса, унда
ноль ва тенг белгисини ёзмаса ҳамям бўлади.
|
| |
