Maple
Jelentkezz be a hozzászóláshoz.
és erre gondoltam, hogy akkor esetleg ha megpróbálom kirajzoltatni maple-el, akkor megkaphatom az eredményt
[/spam]™
hümm.. a pontos feladat úgy szól, hogy milyen alakzatot alkotnak azok a z pontok a síkon, amikre (z-i)i/(z-i) negatív valós szám 😊
[/spam]™
#173
Gondolom ez egy komplex függvény akar lenni (z -> (z-I)*I/(z-1)-való leképezés), akkor ha z=I, akkor nincs értelmezve, egyébként meg I az értéke.
hú ez nekem sötét lesz..
van egy ilyen feladat, ezt szerettem volna ábrázolni:
(z-i)i / (z-i)
Egy ilyet, hogy kell megcsinálni?
van egy ilyen feladat, ezt szerettem volna ábrázolni:
(z-i)i / (z-i)
Egy ilyet, hogy kell megcsinálni?
[/spam]™
#171
Szia!
Pl.
z1:=2+4*I;# képzetes egység az I
Re(z1); # pl. z1 valós része
Im(z1);# képzetes rész
abs(z1);# nagysága
argument(z1); # szöge radiánban
evalf(argument(z1)); # lebegõpontos számként...
evalf(convert(argument(z1),degrees));# fokban a szög
conjugate(z1);# konjugáltja
# Pl. Két komplex szám és különbségük ávrázolása:
z1:=2+4*I;#
z2:=5+6*I;
z3:=z2-z1;
with(plots):
# vektorok rajzolása : arrow(<x,y>😉 :a 0,0, pontból x,y pontba irányuló nyilat (helyvektort) rajzol
z1abra:=arrow(<Re(z1),Im(z1)>, shape=arrow,color=red,head_length=0.3,head_width=0.2):
z2abra:=arrow(<Re(z2),Im(z2)>, shape=arrow,color=blue,head_length=0.3,head_width=0.2):
# a z3-hoz: arrow(<x1,y1>,<dx,dy>...)-vel: x1,y1 pontból dx ,dy irányba rajzol vektort:
z3abra:=arrow(<Re(z1),Im(z1)>,<Re(z3),Im(z3)>, shape=arrow,color=maroon,head_length=0.3,head_width=0.2):
display(z1abra,z2abra,z3abra);
#( lehet komplex függvényeket is ábrázolni: ?complexplot )
Pl.
z1:=2+4*I;# képzetes egység az I
Re(z1); # pl. z1 valós része
Im(z1);# képzetes rész
abs(z1);# nagysága
argument(z1); # szöge radiánban
evalf(argument(z1)); # lebegõpontos számként...
evalf(convert(argument(z1),degrees));# fokban a szög
conjugate(z1);# konjugáltja
# Pl. Két komplex szám és különbségük ávrázolása:
z1:=2+4*I;#
z2:=5+6*I;
z3:=z2-z1;
with(plots):
# vektorok rajzolása : arrow(<x,y>😉 :a 0,0, pontból x,y pontba irányuló nyilat (helyvektort) rajzol
z1abra:=arrow(<Re(z1),Im(z1)>, shape=arrow,color=red,head_length=0.3,head_width=0.2):
z2abra:=arrow(<Re(z2),Im(z2)>, shape=arrow,color=blue,head_length=0.3,head_width=0.2):
# a z3-hoz: arrow(<x1,y1>,<dx,dy>...)-vel: x1,y1 pontból dx ,dy irányba rajzol vektort:
z3abra:=arrow(<Re(z1),Im(z1)>,<Re(z3),Im(z3)>, shape=arrow,color=maroon,head_length=0.3,head_width=0.2):
display(z1abra,z2abra,z3abra);
#( lehet komplex függvényeket is ábrázolni: ?complexplot )
Sziasztok!
Valaki tudna segíteni, hogy komplex számokat hogyan lehet (ha lehet) ábrázolni (kezelni) Maple-ben?
Köszi!
Valaki tudna segíteni, hogy komplex számokat hogyan lehet (ha lehet) ábrázolni (kezelni) Maple-ben?
Köszi!
[/spam]™
#169
Itt néhány rajzolási- és koordinátageometriaiometriai példa található a maple-hez magyarul:
http://www.bgrg.sulinet.hu/tanarok/tanweb/MOROCZL/maple/index.htm
#167
Néhány ingyenes csomag a maplehez:
- share library: jónéhány kisebb-nagyobb csomagot tartalmaz a maplehez (
a maplesoft oldaláról vagy innen letölthetõ: http://myweb.tiscali.co.uk/maplenut/
- advisor csomag: több új/javított maple-parancs, maplehez tanácsok stb...
http://www.math.ubc.ca/~israel/advisor/advisor6/advisor6.html
- szimbolikus áramköranalizis: Syrup
innen letölthetõ: http://www.k-online.com/~joer/syrup/syrup.html
(AC, DC, tranziens analizis, szimbolikus formában, azaz elõ lehet vele állítanipl. az átviteli függvényt analitikus formában. Netlistes formában lehet vele az áramkört megadni. Csak kisebb áramkörökre jó, nincs alkatrészkönyvtára, létrahálózatokat lehet csak felrajzolni vele.)
- qft: kvantumfizikához csomag
http://www.scg.uwaterloo.ca/~ecterrab/qft.html
- Maple-PVs interface
Matematikai tételek, állítások gépi bizonyítására (automated theory proving) szolgáló önálló PSV programhoz készült Maple-interfész. Kell hozzá persze az eredeti progi is, ahhoz úgy néz ki Windows alatt nem fut, linux kell hozzá.
Pl. azonosságok igazolására, függvény folytonosság eldöntésére stb... ( a maple nem megbízható ebben),
a program: http://www.dcs.qmul.ac.uk/~hago/Maple-PVS/
egy publikáció róla: http://www.csl.sri.com/users/owre/papers/tphols01/tphols01.pdf#search=%22pvs%20maple%22
#166
Dos-os maple demo, 1991-bõl itt:
http://www.mapleprimes.com/blog/tom_4/functioning_maple_v_r1_dos_demo_circ_1991
#165
Maple-hez bevezetõ elõadások itt is:
http://rs1.sze.hu/~horvathz/gyak1.txt
http://rs1.sze.hu/~horvathz/gyak2.txt
http://rs1.sze.hu/~horvathz/gyak3.txt
http://rs1.sze.hu/~horvathz/gyak_fvgraf.txt
#164
Üdv!
Tényleg jó tanáraid voltak neked ezek szerint, sajnos az én tanáraim nem értettek nagyon a Maple-hez...
Nem ismerem az említett tanárokat személyesen, de a Maple-t a Molnárka-féle könyvbõl kezdtem el jó pár éve tanulni és nagyon szerettem ezt a könyvet.
Ez az a könyv a többi magyar nyelven megjelent könyvvel együtt:
Molnárka és szerzõtársai: A Maple V. és alkalmazásai, Springer, 1996
Klincsik M. és Maróti Gy. : Maple 8 tételben, Novadat, 1995
Heck A. : Bevezetés a Maple használatába, JGYF Kiadó, Szeged, 1999
Az említetten kívül még a Heck könyvet olvastam, az is nagyon szuper, csak mint a többinek az a problémája, hogy régiek, azóta sok mindenben változott a Maple, De ezzel együtt is nagyon ajánlom õket.
A hivatkozott Maple-anyagok is szuperek, azért kár, hogy nem frissítik õket, hiszen 5-6 évesek. (Pl. azóta a Maple a %, %%, %%% -ot használja a korábbi eredményre való hivatkozásra a ", "", """-helyett, vagy már ez E nincs lefoglalva az exponenciális állandóra, és persz új parancsok, módosított prancsok, sok új programcsomag, stb...).
#163
Az alább olvasható hivatkozás a matektanáromé:
(1) http://rs1.szif.hu/~molnarka/ANALIZIS/
(2) http://rs1.szif.hu/~molnarka/LINEARIS_ALGEBRA/
Nagy élmény volt számomra a Maple-lel tanulni a matematikát. Felejthetetlen volt e két tantárgyból a vizsgai is, hát sokan el is véreztek, de én nem 😊
Azóta rendkívül sok mindenhez tudtam használni, amúgy közgazdásznak tanulok...
Nagyon sokat köszönhetek dr. habil Molnárka Gyõzõnek és Miletics Editnek.
Amúgy az érdeklõdõknek ajánlok még egy honlapot, az is rendkívül jó és hasznos. Szintén az egyik tanáromé (Kallós Gábor dr. PhD), csak õ számtechet tanított, de a mi egyetemünk széles oktatási spektruma rendkívüli lehetõségeket kínál... 😊
(3) http://rs1.szif.hu/~kallos/maple/
Remélem mindenki jól tudja hasznosítani a linkeket.
Üdv:
nksiker
SZE - Gyõr - www.sze.hu
(1) http://rs1.szif.hu/~molnarka/ANALIZIS/
(2) http://rs1.szif.hu/~molnarka/LINEARIS_ALGEBRA/
Nagy élmény volt számomra a Maple-lel tanulni a matematikát. Felejthetetlen volt e két tantárgyból a vizsgai is, hát sokan el is véreztek, de én nem 😊
Azóta rendkívül sok mindenhez tudtam használni, amúgy közgazdásznak tanulok...
Nagyon sokat köszönhetek dr. habil Molnárka Gyõzõnek és Miletics Editnek.
Amúgy az érdeklõdõknek ajánlok még egy honlapot, az is rendkívül jó és hasznos. Szintén az egyik tanáromé (Kallós Gábor dr. PhD), csak õ számtechet tanított, de a mi egyetemünk széles oktatási spektruma rendkívüli lehetõségeket kínál... 😊
(3) http://rs1.szif.hu/~kallos/maple/
Remélem mindenki jól tudja hasznosítani a linkeket.
Üdv:
nksiker
SZE - Gyõr - www.sze.hu
#162
Alapvetõ Maple parancsok, használat magyarul:
http://files.szt.ektf.hu/dl.php?file=files%2FTan%E1ri+megoszt%E1sok%2FHolov%E1cs+J%F3zsef%2Fnumer%2F11-Maple.pdf
#160
Analizis és lineáris algebra elõadások Maple-vel:
http://rs1.szif.hu/~molnarka/ANALIZIS/
http://rs1.szif.hu/~molnarka/LINEARIS_ALGEBRA/
#159
Itt néhány koordinátageometriai stb. matek-feladat Maple megoldása található :
http://www.sulinet.hu/tart/cikk/Raf/0/17445/1
#158
Egy másik meoldás, a geometry csomag parancsait felhasználva:
restart;
with(geometry):
line(e1, y = 2*x+3, ):
line(e2, y = 3*x+9, ):
circle(kor, x^2+y^2 = 25, , 'centername' = o):
draw( , view = (<-15 .. 15, -15 .. 15>-15 .. 15, -15 .. 15>), axes = normal);
lásd a helpben: ?geometry
restart;
with(geometry):
line(e1, y = 2*x+3,
line(e2, y = 3*x+9,
circle(kor, x^2+y^2 = 25,
draw(
lásd a helpben: ?geometry
hümm.. pedig mivel én is most kezdtem, szerintem tök lökötten írtam be mindent
kérdeztem valamit, majd ha megvolt az eredmény, akkor beírtam ide, hogy mit csináltam, hogy ez lett
kérdeztem valamit, majd ha megvolt az eredmény, akkor beírtam ide, hogy mit csináltam, hogy ez lett
[/spam]™
#156
Be kell másolni az egyes sorokat a MAplebe egy-egy parancssorba. A Maple 10-ben ehhez például nyom az ember egy [> -gombot (felül) így csinál egy parancsbeviteli sort, ide kell egy sort bemásolni.
Még meg lehet próbálni a Maple 10-ben a Toolsban Assitantok közül a plot buildert. Azzal is lehet több diagramot egy ábrába rajzolni, de nyilván nem olyan rugalmas mint kódolni.
A Maple elsõsorban egy matematikai programnyelv, még akkor is ha 10-esben jelentõs lépéseket tettek a felhasználóbarátabb, egerezõs-kattintgatós-kódolás nélküli használat afelé (lásd Matchad). Ha viszont igazán rugalmasan szeretné az ember használni a Maple széleskörû lehetõségeit, akkor kénytelen elmélyedni a helpben, mondjuk ehhez persze kell az angol tudás. Persze nem kell mindent paraméterezést fejbõl tudni, elég ha gyorsan tud az ember a helpben kereseni...
#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>0, 0>, .2, color = green):
# szovegek abrakba:
abra5 := textplot(<6, 10, e1felirat>6, 10, e1felirat>):
abra6 := textplot(<-3, 8, e2felirat>-3, 8, e2felirat>):
abra7 := textplot(<6, 5, korfelirat>6, 5, korfelirat>):
# a display utasítassal egyszerre rajzoltatjuk ki oket:
display( , scaling = constrained);
( : -vel zárva a sorokat nem írja ki az eredményt.)
Az egyes parancsok részelteit a helpben érdemes megnézni: ?parancs
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>0, 0>, .2, color = green):
# szovegek abrakba:
abra5 := textplot(<6, 10, e1felirat>6, 10, e1felirat>):
abra6 := textplot(<-3, 8, e2felirat>-3, 8, e2felirat>):
abra7 := textplot(<6, 5, korfelirat>6, 5, korfelirat>):
# a display utasítassal egyszerre rajzoltatjuk ki oket:
display(
( : -vel zárva a sorokat nem írja ki az eredményt.)
Az egyes parancsok részelteit a helpben érdemes megnézni: ?parancs
#154
igen, természetesen megnéztem az oldalt, és láttam is ezeket, de nekem ez kb. mintha kínaiul lenne, az egész parancssort be kell írnom? nem lehet vhogy ezt egyszerûbben?
#152
meg az is érdekelne, hogy pl. hogy lehet odaíratni a szöget amit bezárnak az egyenesek az x tengellyel, tegyük fel h ezek alpha meg beta, akkor ezt hogy lehet odaírni?
#151
én még grafikont nem készítettem mapleben, és ezért esetleg ha vkinek van ideje elmagyarázná nekem, hogy hogy lehet ilyet csinálni? pl ha akarok rajzolni két egyenest, mondjuk legyen y=2x+3 meg y= 3x+9 és még szeretnék egy kört is, aminek az egyenlete: x^2+y^2=25, akkor hogy lehet megcsinálni azt, hogy ez egy grafikonon legyen(mert külön-külön megy) és még azt h az egyenesekre oda is írja h ennek ez meg ez az egyenlete, meg mondjuk megjelenítse a kör középpontját szinessel. Ha vki esetleg ráérne válaszolni, azt megköszönném.
#150
nincs meg vkinek véletlenül a 10.04, vagy nem tudjátok h honnan lehetne letölteni?
#149
Munkahelyi példány. Meg van hozzá egy-két fizetõs csomag is (pl a Global Optim.. Toolpack: ez egy nemlineáris, többváltozós globális min., max keresõ. Kifinomultabb mint a Maple beépített Optimalizációs csomagja, mert az lokális max., mint tud keresni stb...).
Adnak a Mpalehez hozzá több kézikönyvet is, elég jók, nagyon ajánlom mindenkinek ezeket, és szerencsére le lehet tölteni õket ingyenesen a maplesoft oldaláról (pdf-ek), esetleg valamelyikhez regisztrálni kell magadat de ez nem termékregisztráció, nem kérnek hozzá semmi kódot stb. Meg hasznos a quick refencia card is, ez is letölthetõ. (Ha kell valakinek el tudom emailezni pdf-ben õket.)
Adnak a Mpalehez hozzá több kézikönyvet is, elég jók, nagyon ajánlom mindenkinek ezeket, és szerencsére le lehet tölteni õket ingyenesen a maplesoft oldaláról (pdf-ek), esetleg valamelyikhez regisztrálni kell magadat de ez nem termékregisztráció, nem kérnek hozzá semmi kódot stb. Meg hasznos a quick refencia card is, ez is letölthetõ. (Ha kell valakinek el tudom emailezni pdf-ben õket.)
#148
hát ez nagy hátrány, te neked honnan van meg az eredeti? megvetted, vagy egyetemen adták?
#147
Most tettem fel a 10.04-est, és abban egybõl megjelent
egy Accents paletta is, amin van vektornyíl, szóval ezzel egy mozdulattal lehet vektoros jelölést csinálni. Mintha ilyen paletta nem lett volna a 10-esben, pedig kerestem.
(a mininovás 10-essel nem fut az upgrade, nem érdemes letölteni!)
egy Accents paletta is, amin van vektornyíl, szóval ezzel egy mozdulattal lehet vektoros jelölést csinálni. Mintha ilyen paletta nem lett volna a 10-esben, pedig kerestem.
(a mininovás 10-essel nem fut az upgrade, nem érdemes letölteni!)
#146
xDJCx-nek köszönöm a segítségét, az volt a gond, hogy nem volt benn a layout paletta, és emiatt nem találtam, most már mennek a vektornyilak is😄. kösz szépen
#144
hm, még mindig gondolkodok, hogy vajon megéri e maple-lel jegyzeteket csinálni😄, mert vhogy sokkal jobb(annak aki úgy szereti a gépét mint a hegedûs a hegedûjét..😄) géppel csinálni, csak nem tom h hosszabb lenne e. Eddigi próbálkozásaim során, vmibel lassabb ha képleteket, számításokat kell írni, de ha vmi szöveg van(pl. indoklásként) akkor sokkal gyorsabb(világos mivel a gépelés alapból az), szóval nem tom eldönteni h mit csináljak..:S
#143
Vagy így is lehet pl. x fölé:
x ["] then insert symbol, e.g. from Arrows palette...
(Maple 10 Quick reference)
x
(Maple 10 Quick reference)
#142
A Maple 10-ben a Layout palettán van olyan szimbólum, ahol valami fölé írható egy másik valami. A felsõ nyílhoz pedig az Arrow palettán található nyíl.
Ha mondjuk nem egy karakter fölé kell a nyíl, pl. AB fölé, akkor egybe kell kijelölni õket elõször.
(Ha nem látszana valamelyik paletta, akkor a View - Palettes - Arrange palettes-ben a bal oldali Dock areas-ba kell húzni felülrõl.)
Lehet másképp is vektornyílat csinálni, de az elég körülményes.
Igazából ez nem kényelmes a Maple-ban, én nem szoktam használni.
Ha mondjuk nem egy karakter fölé kell a nyíl, pl. AB fölé, akkor egybe kell kijelölni õket elõször.
(Ha nem látszana valamelyik paletta, akkor a View - Palettes - Arrange palettes-ben a bal oldali Dock areas-ba kell húzni felülrõl.)
Lehet másképp is vektornyílat csinálni, de az elég körülményes.
Igazából ez nem kényelmes a Maple-ban, én nem szoktam használni.
#141
az lenne a kérdésem, hogy a vektor jelet hogy lehet létrehozni, pl. AB és akkor felette a nyíl, mert én sehol sem találtam
ha valaki tudja, kiváncsi lennék rá
elõre is kösz
ha valaki tudja, kiváncsi lennék rá
elõre is kösz
#140
Az upgradeket persze érdemes a korábbi verzókhoz is letölteni. A 9.5-höz van pl. a 9.5.2-es.
#139
kár pedig igazán jó lett volna, ha géppel lehetett volna jegyzetelni😞
#138
Ejnye, méghogy letölteni!
Egyébként ha már letöltötted, akkor mindenképpen érdemes a friss patchet is letölteni a maplesoft oldaláról. Most a 10.04-nél tartanak, a 10.03-ban még volt (legalább) egy súlyos bug.
Nem javasolnám jegyzetelésre. Ahhoz tényleg gyorsnak kéne lenned! 😊
Egyébként ha már letöltötted, akkor mindenképpen érdemes a friss patchet is letölteni a maplesoft oldaláról. Most a 10.04-nél tartanak, a 10.03-ban még volt (legalább) egy súlyos bug.
Nem javasolnám jegyzetelésre. Ahhoz tényleg gyorsnak kéne lenned! 😊
#137
A Maple 10-et a http://www.mininova.org/ oldalról lehet letölteni, torrentes és én bitcometet használtam a letöltéshez, ami a www.bitcomet.com-ról tölthetõ le.
kérdésem lenne bár én még csak középiskolás vagyok, de jövõre érettségizek, hogy ezt a programot lehet e használni elõadáson történõ jegyzetelésre? tehát lehet e olyan gyors mint a toll és papír?
elõre is köszönöm
kérdésem lenne bár én még csak középiskolás vagyok, de jövõre érettségizek, hogy ezt a programot lehet e használni elõadáson történõ jegyzetelésre? tehát lehet e olyan gyors mint a toll és papír?
elõre is köszönöm
#136
exp(1);
evalf(%);
evalf(%);
Hogy kell felírni az e-t?
mármint nem kiírni, hogy e.
Gondolom van egy ilyen objektum.
mármint nem kiírni, hogy e.
Gondolom van egy ilyen objektum.
[/spam]™
#134
Igen, elég viszonylag rövid a kód, a nehézség csak az, hogy mivel baromi sokat tud a Maple, sok parancs és mindenféle boynolult paraméterezés, ezt csak a helpbõl lehet kibogarászni, mert persze egy MAple könyvben sem lehet benne minden. Ráadásul a Maple könyvek hamar elavulnak.
#133
Az a 26,6 fok = 0,46 rad = arctan(1/2)
Eeez igen!
Te nagyon nagyon vágod ezt!!! 😊
<#taps>#taps>
De azt jó látni, hogy igazából a kótmennyidéget tekintve nem is kell annyi kód, hogy mindezt megcsinlja.. és ez tök jó
Ja, és köszönöm szépen! 😊
Te nagyon nagyon vágod ezt!!! 😊
<#taps>#taps>
De azt jó látni, hogy igazából a kótmennyidéget tekintve nem is kell annyi kód, hogy mindezt megcsinlja.. és ez tök jó
Ja, és köszönöm szépen! 😊
[/spam]™
#130
Kiegészítés:
Most a szögeket is berajzoltam, ha valaki ilyesmit szeretne Maple-ban csinálni:
restart;
with(Student ):
with(plots):
f1:=x->x^2: # függvény definíciók
f2:=x->sqrt(x):
a:=1: # x=a helyen nézzük
m1:=eval(diff(f1(x),x),x=a):# meredekség: derivált x=a helyen
m2:=eval(diff(f2(x),x),x=a):
m1szog:=evalf(arctan(m1)):# radianban az érintõk szöge
m2szog:=evalf(arctan(m2)):
deltaszog:=evalf(m1szog-m2szog): #az érintõk különbségi szög
a1:=Tangent(f1(x), x=a,output = line):# az erinto egyenlete f1-re
a2:=Tangent(f2(x), x=a,output = line):#az erinto egyenlete f2-re
ab1:=plot(f1(x),x=-2..4,y=-1..4,color=green):ab2:=plot(f2(x),x=-2..4,y=-1..4,color=yellow):# függvényábrák
ab3:=plot(a1,x=-2..4,y=-1..4,color=red):ab4:=plot(a2,x=-2..4,y=-1..4,color=red):# érintõábrák
# szögívek:
m1szogab := plottools (, 1.5, 0..m1szog,color=green):
m2szogab := plottools (, 2, 0..m2szog,color=yellow):
deltaszogab:=plottools (, 2.5, m1szog..m2szog,color=cyan ):
# szög értékek fokban, sztringbe konvertálásuk felirathoz
m1szogszov:=cat(convert(evalf(m1szog*180/Pi,4),'string')," fok"):
m2szogszov:=cat(convert(evalf(m2szog*180/Pi,4),'string')," fok"):
deltaszov:=cat(convert(evalf(deltaszog*180/Pi,4),'string')," fok"):
# feliratok az ábrára: szögértékek
m1szogtxt:=textplot(<1.4,1.4,m1szogszov>1.4,1.4,m1szogszov>,align={ABOVE,RIGHT}):
m2szogtxt:=textplot(❤️,1.4,m2szogszov>3,1.4,m2szogszov>,align={ABOVE,RIGHT}):
dszogtxt:=textplot(<2,2.2,deltaszov>2,2.2,deltaszov>,align={ABOVE,RIGHT}):
# együtt kirajzolni az ábrákat:
display( );
Most a szögeket is berajzoltam, ha valaki ilyesmit szeretne Maple-ban csinálni:
restart;
with(Student
with(plots):
f1:=x->x^2: # függvény definíciók
f2:=x->sqrt(x):
a:=1: # x=a helyen nézzük
m1:=eval(diff(f1(x),x),x=a):# meredekség: derivált x=a helyen
m2:=eval(diff(f2(x),x),x=a):
m1szog:=evalf(arctan(m1)):# radianban az érintõk szöge
m2szog:=evalf(arctan(m2)):
deltaszog:=evalf(m1szog-m2szog): #az érintõk különbségi szög
a1:=Tangent(f1(x), x=a,output = line):# az erinto egyenlete f1-re
a2:=Tangent(f2(x), x=a,output = line):#az erinto egyenlete f2-re
ab1:=plot(f1(x),x=-2..4,y=-1..4,color=green):ab2:=plot(f2(x),x=-2..4,y=-1..4,color=yellow):# függvényábrák
ab3:=plot(a1,x=-2..4,y=-1..4,color=red):ab4:=plot(a2,x=-2..4,y=-1..4,color=red):# érintõábrák
# szögívek:
m1szogab := plottools
m2szogab := plottools
deltaszogab:=plottools
# szög értékek fokban, sztringbe konvertálásuk felirathoz
m1szogszov:=cat(convert(evalf(m1szog*180/Pi,4),'string')," fok"):
m2szogszov:=cat(convert(evalf(m2szog*180/Pi,4),'string')," fok"):
deltaszov:=cat(convert(evalf(deltaszog*180/Pi,4),'string')," fok"):
# feliratok az ábrára: szögértékek
m1szogtxt:=textplot(<1.4,1.4,m1szogszov>1.4,1.4,m1szogszov>,align={ABOVE,RIGHT}):
m2szogtxt:=textplot(❤️,1.4,m2szogszov>3,1.4,m2szogszov>,align={ABOVE,RIGHT}):
dszogtxt:=textplot(<2,2.2,deltaszov>2,2.2,deltaszov>,align={ABOVE,RIGHT}):
# együtt kirajzolni az ábrákat:
display(
#129
Jó, akkor elárulom, én is abban rajzoltam az ábráimat. Képzelheted mennyi munka van benne! Szerencsére a síkképernyõmön könnyû volt szöget mérni a kis mûanyag szögmérõmmel! 😄
#128
Egy kis Maple történelem:
Az úriember a Maple egyik alapítója:
Dr. Keith Geddes
Keith Geddes:
"Initially, Maple was implemented in B on a Honeywell computer, but soon afterward, C became the obvious widely available language. In 1981, we moved from the Honeywell to a Vax 780. We purchased our first UNIX box for Maple in 1983 for $25,000, a Spectrix computer with one megabyte of memory.
... By the first week in December 1980, we had an operational Maple system, and it evolved from there. In trying to name the system, we started thinking of an acronym. When I suggested the name "Maple," we decided we would go with that, as it seemed like a good Canadian name (not an acronym).
... "
Az úriember a Maple egyik alapítója:
Dr. Keith Geddes
Keith Geddes:
"Initially, Maple was implemented in B on a Honeywell computer, but soon afterward, C became the obvious widely available language. In 1981, we moved from the Honeywell to a Vax 780. We purchased our first UNIX box for Maple in 1983 for $25,000, a Spectrix computer with one megabyte of memory.
... By the first week in December 1980, we had an operational Maple system, and it evolved from there. In trying to name the system, we started thinking of an acronym. When I suggested the name "Maple," we decided we would go with that, as it seemed like a good Canadian name (not an acronym).
... "
#126
Egyébként jó kis rajz, megadod a kódot? 😊