SG Fórum - Maple - #155

SG Fórum - Maple - #155

Fórum / Felhasználói programok

xDJCx 2006. júl. 02. 21:21 | válasz | #155
Többféleképpen is lehet, egy megoldás (Maple 10 worksheetben):

restart:

#szukseges rajzolo csomagok betoltese:

with(plots): with(plottools):

#egyenesek es a kor kepletei

e1 := 2*x+3;

e2 := 3*x+9;

kor := x^2+y^2 = 25;

# felirat hozzajuk: stringbe konvertalva a kepleteket

e1felirat := convert(y = e1, 'string'):

e2felirat := convert(y = e2, 'string'):

korfelirat := convert(kor, 'string'):

# az egyenesek , a kor es a feliratok abrait kulon elkeszítjuk:

abra1 := plot(e1, x = -15 .. 15, y = -15 .. 15, color = blue):

abra2 := plot(e2, x = -15 .. 15, y = -15 .. 15, color = red):

# implicit figgveny rajzolasa: (implicit, azaz nincs y kifejezve...)

abra3 := implicitplot(kor, x = -15 .. 15, y = -15 .. 15, color = green):

# ez lesz akor kozeppntja:

abra4 := disk([0, 0], .2, color = green):

# szovegek abrakba:

abra5 := textplot([6, 10, e1felirat]):

abra6 := textplot([-3, 8, e2felirat]):

abra7 := textplot([6, 5, korfelirat]):

# a display utasítassal egyszerre rajzoltatjuk ki oket:

display([abra1, abra2, abra3, abra4, abra5, abra6, abra7], scaling = constrained);

( : -vel zárva a sorokat nem írja ki az eredményt.)

Az egyes parancsok részelteit a helpben érdemes megnézni: ?parancs

Válasz 'manwe' üzenetére (#151)