for i from 1 to 8 do rotation(t||i,t,Angle[i],counterclockwise,o);
84
rotation(tt||i,tt,Angle[i],counterclockwise,o); rotation(ttt||i,ttt,Angle[i],counterclockwise,o); rotation(tttt||i,tttt,Angle[i],counterclockwise,o);
end do: draw([seq(op([t||i(color=red),tt||i(color=green),ttt||i(color=blue), tttt||i(color=plum)]),i=1..n)],printtext=false,filled=true,axes=none, title="An example of translation, rotation, dilatation of a circle");
Berilgan tengsizliklar uchun qurilgan ikki o`lchovli soha
1
f1x,yc , f2x,yc2 ,...,fnx,ycn tengsizliklar sistemasi uchun ikki o`lchovli soha qurish kerak, u holda buning uchun plots paketining inequal komandasidan foydalanish mumkin. inequals({f1(x,y)>c1,…,fn(x,y)>cn}, x=x1…x2, y=y1..y2, options) komandasida figurali qavs ichida tengsizliklar sistemasi ko`rsatilgan, soha aniqlangan, so`ngra koordinata o`qlari o`lchami va parametrlar ko`rsatilgan. Ochiq va yopiq rang parametrlarini tartibga solish, tashki va ichki soha ranglari, shuningdek chegara chizigining qalinligi:
optionsfeasible=(color=red) - ichki soha rangini o`rnatish; optionsexcluded=(color=yellow) - tashki ichki soha rangini o`rnatish ; optionsopen(color=blue, thickness=2) - ochiq chegara chizigi qalinligi va rangini o`rnatish;
Misol:
2 2
1. Oshkormas funksiya grafigini chizing (giperbola): 4 2 16. > with(plots):
>
Do'stlaringiz bilan baham: |