Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.
Nástěnka
❗22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
❗04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
❗23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.
Nejste přihlášen(a). Přihlásit
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
da se to vykreslit treba i jako plocha zadana parametricky
Offline
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
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
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
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
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
co tohle? plot3d([s,cos(t)*(4*s-s^2), sin(t)*(4*s-s^2)],s=0..4,t=0..2*Pi)
Offline
↑ katkarínka:
používaš maple 12? červený nebo žlutý?
Offline
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
no, riesenie to mozno je, ale asi nie take, ako on chce.... a akym prikazom si to dal do 3D?
Offline
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
tak nakoniec som to vyriešila, ale ďakujem vám :)
Offline