#1 19. 05. 2010 15:56
- katkarínka
- Příspěvky: 41
- Reputace: 0
Maple
Ahojte. Potrebovala by som poradiť s Maplom. Mám projekt na tému Integrálny počet-Objem a povrch telies vzniknutých rotáciou okolo osy x (y). Všetko to mám, ale na nakreslenie rotačných telies som použila procedúry rotxplot, rotyplot, a mám to prerobiť, bez použitia týchto procedúr. Ale ako inak sa v Maplu kreslia rotačné telesá?
Za rady vopred veľmi pekne ďakujem.
Offline
- (téma jako vyřešené označil(a) kaja(z_hajovny))
#2 19. 05. 2010 16:05
- kaja(z_hajovny)
- Místo: Lážov
- Příspěvky: 1002
- Reputace: 12
- Web
Re: Maple
da se to vykreslit treba i jako plocha zadana parametricky
Offline
#3 19. 05. 2010 16:10
- katkarínka
- Příspěvky: 41
- Reputace: 0
Re: Maple
NO ja mám takýto príklad.
Určte objem a povrch telesa, ktoré vznikne rotáciou okolo osi x. Je ohraničené krivkami y=4x-x^2 a y=0. A ako by som to nakreslila ako rotačné teleso? Mne to proste nejde.
Offline
#4 19. 05. 2010 16:21
- kaja(z_hajovny)
- Místo: Lážov
- Příspěvky: 1002
- Reputace: 12
- Web
Re: Maple
Sage:
s,phi=var('s phi')
parametric_plot3d([s,cos(phi)*(4*s-s^2), sin(phi)*(4*s-s^2)],(s,0,4),(phi,0,2*pi))
maple nevim jak
Offline
#5 19. 05. 2010 16:28
- katkarínka
- Příspěvky: 41
- Reputace: 0
Re: Maple
a prosim ta, co znamena ten prvy prikaz s,phi=var('s phi')?
lebo ak som to cele zadala do maplu, teda nejak som to musela upravit, nakreslilo mi to len krivku.
Offline
#6 19. 05. 2010 20:32
- kaja(z_hajovny)
- Místo: Lážov
- Příspěvky: 1002
- Reputace: 12
- Web
Re: Maple
ten prvni prikaz v maplu nereste... jenom definuje promenne.
bud musite napsat, co jste zadala do toho maplu nebo cekat na nekoho kdo ma maple nainstalovany
poslete sem ten prikaz maplu a text napovedy k tomu prikazu.
Offline
#7 19. 05. 2010 21:12
- katkarínka
- Příspěvky: 41
- Reputace: 0
Re: Maple
tak trosku podrobnejsie:
ja som pouzila prikaz rotxplot, ktory je naprogramovany takto:
rotxplot:=proc()
local a, b, c, d, f1, f, i, xbound, rotaxis, opts, opt_seq, p1, profile, tloc;
if nargs < 3 then
ERROR(`Procedura ma alespon tri parametry`) fi;
f:=args[1];
xbound:=args[2];
rotaxis:=lhs(args[3])=evalf(rhs(args[3]));
a:=op(1, rhs(xbound));
b:=op(2, rhs(xbound));
### WARNING: semantics of type `string` have changed
if not type (rhs(xbound), range) then
ERROR(`Interval pro x je zadan nespravne`) fi;
## WARNING: semantics of type `string` have changed
if not type (rhs(rotaxis), numeric) then
ERROR(`Vyraz pro osu rotace je zadan nespravne`) fi;
if not (lhs(xbound) = 'x') or not (lhs(rotaxis) = 'y') then
ERROR(`Nazev druhe promenne musi byt x`) fi;
if not type (evalf(a), numeric) or not type(evalf(b), numeric) then
ERROR(`Krajni body intervalu pro x musi byt cisla` ) fi;
c:=rhs(rotaxis);
d:=lhs(xbound);
opts:=style=PATCH, scaling=CONSTRAINED, axes=BOXED, grid=[25,25],labels=[` `,'x','y'];
if not type (f, procedure) or not type (f, list) then
f1:=unapply(f,d); fi;
if type (f, procedure) then
f1:=f; fi;
if not type(f,list) then
profile:=[(f1(d)-c)*sin(tloc),d,(f1(d)-c)*cos(tloc)+c]; fi;
if type(f,list) then f1:=unapply(f,d);
profile:=[(f1(d)[2]-c)*sin(tloc),f1(d)[1],(f1(d)[2]-c)*cos(tloc)+c]; fi;
if nargs = 3 then
p1:=plot3d(profile,d=a..b,tloc=0..2*Pi,opts); fi;
if nargs > 3 then
opt_seq:=opts,seq(args[i],`i`=4..nargs);
p1:=plot3d(profile,d=a..b,tloc=0..2*Pi),opt_seq; fi;
plots[display3d](p1);
end:
ale podla profesora som si to zjednodusila, musim to napisat nejako ako je to vo vnutri tej procedury, ale to nejak nechapem, ze co je c a d...
Offline
#8 19. 05. 2010 21:57
- kaja(z_hajovny)
- Místo: Lážov
- Příspěvky: 1002
- Reputace: 12
- Web
Re: Maple
co tohle? plot3d([s,cos(t)*(4*s-s^2), sin(t)*(4*s-s^2)],s=0..4,t=0..2*Pi)
Offline
#9 19. 05. 2010 22:12
Re: Maple
↑ katkarínka:
používaš maple 12? červený nebo žlutý?
"Jsou dány dvě kružnice, z nichž jedné kouká z kapsy bagr."
Offline
#10 19. 05. 2010 22:14
- katkarínka
- Příspěvky: 41
- Reputace: 0
Re: Maple
no momentalne mi zblbol program, takze mi to nevykresluje.. ale vyzera to rozumne, asi to bude tak.... a ak ešte môžem otázku, aká by nastala zmena v príkaze, kebyže chceme rotovať okolo osi y?
a ĎAKUJEM :)
Offline
#12 19. 05. 2010 22:28
- katkarínka
- Příspěvky: 41
- Reputace: 0
Re: Maple
no, riesenie to mozno je, ale asi nie take, ako on chce.... a akym prikazom si to dal do 3D?
Offline
#16 19. 05. 2010 22:43
- katkarínka
- Příspěvky: 41
- Reputace: 0
Re: Maple
nie, on to chce take prave hladke rotacne teleso, ale aj tak dakujem...
ten prikaz od kaja(z_hajovny) mi funguje uz :) len este sa to snazim upravit na priklad, ked funkcia sin2x rotuje okolo y.. a zatial neuspesne... tak ak sa niekomu chce este premyslat :)
Offline
#17 20. 05. 2010 11:13
- katkarínka
- Příspěvky: 41
- Reputace: 0
Re: Maple
tak nakoniec som to vyriešila, ale ďakujem vám :)
Offline