625
A Maple egy fejlett matematikai problémamegoldó és programozói szoftver.
  • csaba91
    #465
    Szeretnék parabolát illeszteni 7 tetszőleges pontra azt hogy tudnám megoldani?
  • Petya065
    #464
    Időközben sikerült megoldani a dolgot, de azér köszi, és télleg nem nagyon akarnak működni a parancsok :D
  • xDJCx
    #463

    A # kommentezést jelent, nélküle add meg a megfelelő sorokat, úgy végrehajtja.
    Azaz ha elmentetted a kicsomagolt fájlokat a megfelelő könyvtárba (C:/mylib/gametheory), akkor ezt végre lehet hajtani:

    libname:="C:/mylib/gametheory", libname;
    march('create', libname[1],100);
    savelib('matrixgames');

    Amúgy elég régi verzió, nem biztos, hogy működni fognak a csomag parancsai...
    Ezzel tölthető be a csomag:

    with(matrixgames);
  • Petya065
    #462
    Sziasztok!
    Nekem egy olyan jellegű problémám lenne, hogy szeretnék egy külső csomagot telepíteni, amivel játékelméleti problémákat lehet megoldani, és le is van írva, hogy hogyan kéne, de úgy nem működik.

    http://www.maplesoft.com/applications/view.aspx?SID=3611 <- itt van az alkalmazás

    Installation Instructions
    Save the files maple.hdb, maple.ind and maple.lib (available in WinZip format by clicking the "Download Code" X on the Application Center) in a directory of your choosing, for instance C:/mylib/gametheory. Then execute the following:
    > #libname:="C:/mylib/gametheory", libname;
    > #march('create', libname[1],100);
    > #savelib('matrixgames');
    This saves the matrixgames package as a Maple library on your machine. From now on, in any worksheet where you want to use the matrix games package, execute the commands:
    > #libname:="C:/mylib/gametheory", libname;
    > #with(matrixgames);

    Ez áll a leírásban, de így nem müködik. 13-as verziót használok.

    Előre is köszi a válaszokat!
    Üdv!
    Petya
  • brühühü
    #461
    Köszönöm szépen!
  • xDJCx
    #460
    A StringTools beépített csomag ParseTime parancsa megadott stringet próbál dátumként értelmezni. Ha érvényes dátum volt, akkor kiszámolja többek között a hozzá tartozó hét napját is. Azaz az öröknaptárt is tudja.
    Az első argumentuma a várt dátumformátum, második az értelmezendő string. Egy példa a súgóból:
    StringTools[ParseTime]("%Y-%m-%d", "2002-11-05");
    A súgóban részletes leírás van róla:
    ?ParseTime

    A feladatban a bemenet 3 szám: év, hónap, nap. Ezekből először stringet kell készíteni, a ParseTime -ban megadott dátumformátum szerint, erre jó a cat parancs. Pl.
    cat(2002,"-",11,"-",5);
  • brühühü
    #459
    Köszönöm,de sikerült rájönnöm.
    nagyon köszönöm a megoldásokat.
  • brühühü
    #458
    Kedves xDJCx!
    meg tudnád mondani, hogy a
    dt := ParseTime("%Y-%m-%d", cat(ev,"-",ho,"-",nap));
    mit jelent az örökdátumos szövegben?
    Előre köszönöm.
  • xDJCx
    #457

    A Hanoi-tornyos feladatra egy megoldás, az általános rekurzív algoritmus alapján, és felhasználva Maple stack adattípusát a korongok nyomon követéséhez:

    HANOI:=proc(n::posint)
    description "Hanoi-torony - cél: A oszlopról B-re átrakni a korongokat.";
    local a,b,c,d,T,k,atrako,lepes;
    a := stack[new](seq(k,k=n..1,-1));
    b := stack[new]();
    c := stack[new]();lepes:=0;
    T:=table(["A"=a,"B"=b,"C"=c]);
    atrako:=proc(korongszam::posint,Aoszlop,Boszlop,atmenetioszlop)
    if korongszam=1 then
    d:=stack[pop](T[Aoszlop]);
    stack[push](d, T[Boszlop]); lepes:=lepes+1;
    print( cat(lepes,". lépés ",d,Boszlop,", ",Aoszlop,"-->",Boszlop));
    else
    atrako(korongszam-1,Aoszlop,atmenetioszlop,Boszlop);
    d:=stack[pop](T[Aoszlop]);lepes:=lepes+1;
    stack[push](d, T[Boszlop]);
    print(cat( lepes,". lépés: ",d,Boszlop,", ",Aoszlop,"-->",Boszlop));
    atrako(korongszam-1,atmenetioszlop,Boszlop,Aoszlop);
    end if;
    end proc;
    atrako(n,"A","B","C");
    end proc;


    HANOI(4);
  • brühühü
    #456
    Nagyon szépen köszönöm a segítséget xDJCx!!!
  • xDJCx
    #455
    Öröknaptárra egy gyors megoldás, a Maple beépített naptárjával:


    OROKNAPTAR:=proc(ev,ho,nap)
    description "Oroknaptar a Maple beepitett naptar algoritmusa alapjan";
    local dt,napok;
    uses StringTools;
    napok:=table(["Sunday"="vasárnap","Monday"="hétfõ","Tuesday"="kedd","Wednesday"="szerda","Thursday"="csütörtök","Friday"="péntek","Saturday"="szombat"]);
    dt := ParseTime("%Y-%m-%d", cat(ev,"-",ho,"-",nap));
    cat(ev,".",ho,".",nap,". ",napok[dt:-weekDayName]);
    end proc;


    OROKNAPTAR(2010,5,7);

  • xDJCx
    #454
    A gráfos feladatra egy megoldás, nagy n-re itt sem érdemes próbálkozni:

    SZINEZES2:=proc(n::posint)
    local reszhalmazok,szamuk,reszhalmazokhalmaza,csucsnevek,G,R,H,k,m;
    uses GraphTheory;
    if n<2 then return "Kevés a pontok száma!";end if;
    reszhalmazok:=combinat:-choose(n,2);#2 elemu reszhalmazok eloallitasa
    reszhalmazokhalmaza:=map(convert,reszhalmazok,set)[];# tipuskonverzio halmazza
    szamuk:=nops(reszhalmazok);# ezek szama, ez eppen n alatt a 2 lenne
    R:={}:# elek letrehozasa
    for k from 2 to szamuk do
    for m from 1 to k-1 do
    if `intersect`(reszhalmazokhalmaza[k] , reszhalmazokhalmaza[m])={} then R:=R union {{k , m}}:end if;end do;end do;
    G := Graph([$1..szamuk]);AddEdge(G, R);# graf letrehozasa
    csucsnevek:=map(t->convert(t,'string'),[reszhalmazokhalmaza]);# csucsok cimkezesehez
    H := RelabelVertices(G, csucsnevek);# csucsok uj cimkekkel ellatasa
    print(cat("Csúcsszinezési szam: ",ChromaticNumber(H)));# csúcsszínezési szám
    DrawGraph(H);

    end proc;



    SZINEZES2(5);
  • brühühü
    #453
    Sziasztok!
    Kérlek segítsen, aki tud. Megpróbáltam megoldani, de nem nagyon sikerült. Sürgős lenne.

    HANOI
    Készítsünk maple programot, mely a Hanoi tornyok nevű játék megoldását írja ki. A játékban három rúd (A,B,C) és n különböző méretű korong van (1,2,...,n sugarúak). A korongok eredetileg az A rúdon találhatóak. A feladat: úgy áthelyezni őket a B korongra, hogy mindig csak egy korongot mozgatunk, és kisebb korongra nem helyezhetünk nagyobbat. Ha pl. 3 korong van, egy megoldás: 1B, 2C, 1C, 3B, 1A, 2B, 1B. (1B azt jelenti, hogy a legkisebb korongot tesszük a B rúdra stb.).
    Az n szám legyen paraméterként megadható.

    SZÍNEZÉS2
    Az {1, 2, ..., n} halmaz kételemű részhalmazain mint csúcsokon definiáljuk a következő gráfot:
    két részhalmaz akkor van összekötve (egyszeres, irányítatlan) éllel, ha diszjunkt. Hozzuk létre ezt a gráfot, és írassuk ki a csúcsszínezési számát.

    ÖRÖKNAPTÁR
    Készítsünk öröknaptárt, mely 1800 és 2300 között bármely év bármely napjáról megmondja, hogy a hét melyik napjára esett/esik. A feladathoz hozzátartozik az is, hogy tudni kell pl. a szökőévekről. A bemenet 3 szám: év, hónap, nap. Kimenet a hét megfelelő napja.

    Köszi
  • xDJCx
    #452
    Az újdonságok részletesen az online-helpben olvashatók:

    http://www.maplesoft.com/support/help/Maple/view.aspx?path=updates/v14
  • xDJCx
    #451
    Megjelent tegnap a Maple 14 és a MapleSim 4.

    http://www.maplesoft.com/
  • fütyimi
    #450
    Köszönöm szépen a segítséget
  • xDJCx
    #449
    A példában helyesbítek, 168 éppen előáll így, 167 nem:
    LANGRANGE(167);# pl. 167 nem áll elő 3 négyzetszám összegeként
  • xDJCx
    #448

    A tétel szerint minden egész előáll 4 négyzetszám összegeként, háromra már nem igaz ez. Erre is van külön tétel..


    LANGRANGE:=proc(n::posint)
    local k,m,s;
    s:=cat(n," elõáll 3 négyzetszám összegeként. ");
    for k from 0 to n do
    for m from 0 to n do
    if 4^k*(8*m+7)=n then s:=cat(n," nem all elo 3 negyzetszam osszegekent! "):end if;
    end do;
    end do;
    s;
    end proc;


    LANGRANGE(168);# pl. 168 nem áll elő 3 négyzetszám összegeként


    2. eljárás: 1..n-ig megnézi, melyek nem állnak elő 3 négyzetszám, összegeként:

    LANGRANGEs:=proc(N::list)
    local k,m,n,s,nemallnakelo,t;
    n:=nops(N);nemallnakelo:=[]:
    for t from 1 to n do
    for k from 0 to n do
    for m from 0 to n do
    if 4^k*(8*m+7)=N[t] then nemallnakelo:=[nemallnakelo[],N[t]]:end if;
    end do;
    end do;
    end do;
    lprint(cat("Ezek az egeszek nem allnak elõ 3 negyzetszam osszegekent 1- ",n,"-ig:"));nemallnakelo;
    end proc;


    LANGRANGEs([$1..200]);# 1.. 200-ig


    Vesd össze:

    http://www.research.att.com/~njas/sequences/A004215




  • fütyimi
    #447
    Sziasztok
    engem is petinho26 lagrange-os feladata érdekelne ha esetleg valaki tudna abban segíteni azt nagyon megköszönném
  • Petrapepi
    #446
    :D Nagyon szépen köszönöm xDJCx-nek!!
  • xDJCx
    #445

    Ez egy megvalósítása Mapleben, lehetne ennél hatékonyabban is:

    Erathosztenes:=proc(n::posint)
    local F,Ki,m,t;
    if n=1 then return NULL: end if;
    F:=Array(1..n);
    m:=2:
    while m^2<=n do
    if F[m] = 0 then
    t:=2;
    while m*t<=n do
    F[m*t] := 1 :
    t:=t+1;
    end do:
    end if;
    m:=m+1;
    end do;
    t:=0;
    for m from 2 to n do
    if F[m]=0 then
    t:=t+1;Ki[t]:=m;
    end if;
    end do;
    convert(Ki,'list');
    end proc;


    pl. 1..50-ig a prímszámok Erathosztenész szitájával:

    Erathosztenes(50);

    1..n-ig a primeket egyszerűbben is meg lehet kapni a Mapleben a beépített prímtesztelő parancsát (isprime) felhasználva:

    primek:=n->select(isprime,[$1..n]);

    primek(50);
  • Petrapepi
    #444
    Sziasztok!
    Nagyon tettszik ez a Maple program, hát még hogyha használni is tudnám rendesen... Még nemrég kezdtem el vele foglalkozni, így sajna megakadtam az egyik feladatomban. Ha valaki tudna nekem segíteni, akkor azt nagyon megköszönném!
    A feladat a következő: Erathosztenész szitája: a szita működésének szimulálása tetszőleges pozitív egész n-re. A végén az eljárás az 1..n számok közül írja ki a primeket.
    Előre is köszönöm!
  • xDJCx
    #443

    Ezekkel a bemenő paraméterekkel a Föld keringését szimulálja a procedura( a perihéliumból indítva a szimulációt, vmax sebességgel) :

    perihelium:=147098074*1e3; #m Föld Nap min.távolság
    MNap:=1.98892*1e30;#kg Nap tömege
    Gertek:=6.67428*1e-11; # gravitációs állandó
    vmax:=30287;#m/s Föld max. sebessége
    dTFold:=24*60*60;#sec idõ lépésköz

    bolygo(365,dTFold,perihelium,0,0,vmax,MNap,Gertek);
  • petinho26
    #442
    ezeket is nagyon köszönöm
  • xDJCx
    #441

    A Kepleres feladathoz kapcsolódva az alábbi procedura egy bolygó Nap körüli mozgását szimulálja Newton-törvény és a gravitációs törvény alapján.
    Az elméleti háttere Feynman: Mai fizika I. kötetében le van írva, és onnan származnak a példa kezdeti paraméterei értékei is. (Lehetne szebben is megírni, de most annyi időt nem töltöttem vele.)

    restart;with(plots):
    bolygo:=proc(N,dt,x0,y0,vx0,vy0,M,G)
    description "Bolygómozgás számítása Gravitációs és Newton törvénybõl Forrás: Feynmann : Mai fizika I. ";

    #N;# iterációk száma
    #dt;# idõlépésköz
    #x0;y0;vx0;vy0;# t=0-beli kezdeti pálya adatok
    #M,G;# Nap tömege és gravitációs állandó
    local x,y,xyuj,vx,vy,ax,ay,vxtmdt2,vytmdt2,vxtpdt2,vytpdt2,txy,nap,k,r,Txy,xt,yt,axt,ayt,bolygo,mozgo,ujpalyaadatok;
    use plots in
    x:=Array(1..N):y:=Array(1..N):vx:=Array(1..N):vy:=Array(1..N):ax:=Array(1..N):ay:=Array(1..N):
    txy:=Array(1..N):
    xyuj:=proc(xt,yt,vxtmdt2,vytmdt2)
    local r,axt,ayt,xuj,yuj,vxtpdt2,vytpdt2:
    r:=sqrt(xt^2+yt^2):
    axt:=-G*M*xt/r^3:ayt:=-G*M*yt/r^3:
    vxtpdt2:=vxtmdt2+dt*axt:
    vytpdt2:=vytmdt2+dt*ayt:
    xuj:=xt+dt*vxtpdt2:
    yuj:=yt+dt*vytpdt2:
    [xuj,yuj,vxtpdt2,vytpdt2]:
    end proc;
    txy[1]:=[0,x0,y0]:#t=0
    xt:=x0:yt:=y0:
    r:=sqrt(xt^2+yt^2):# t=0-ban
    axt:=-G*M*xt/r^3:ayt:=-G*M*yt/r^3:# t=0-ban
    vxtmdt2:=vx0+dt/2*axt:vytmdt2:=vy0+dt/2*ayt: # t=dt/2-ban
    # t=dt
    xt:=x0+vxtmdt2*dt;yt:=y0+vytmdt2*dt:#t=dt
    txy[2]:=[dt,xt,yt]:# t=dt
    ujpalyaadatok[1]:=xt:ujpalyaadatok[2]:=yt:
    ujpalyaadatok[3]:=vxtmdt2:ujpalyaadatok[4]:=vytmdt2:
    for k from 3 to N do
    xt:=ujpalyaadatok[1];yt:=ujpalyaadatok[2];
    vxtmdt2:=ujpalyaadatok[3]:vytmdt2:=ujpalyaadatok[4]:
    ujpalyaadatok:=xyuj(xt,yt,vxtmdt2,vytmdt2):
    txy[k]:=[(k-1)*dt,ujpalyaadatok[1],ujpalyaadatok[2]]:
    end do:
    Txy:=seq([txy[t][2],txy[t][3]], t=1..N):
    bolygo:= proc(xy) plots[pointplot]([xy],color=blue,symbol=solidcircle,symbolsize=20) end proc:
    mozgo:=seq(bolygo(Txy[n]), n=1..N):nap:=plots[pointplot]([0,0],color=yellow,symbol=solidcircle,symbolsize=40):
    display(nap,display(mozgo,scaling=constrained,insequence = true,axes=normal));
    end use;
    end proc;


    bolygo(82,0.05,0.5,0,0,1.63,1,1);# G és M 1-nek választva itt.

  • xDJCx
    #440


    Az alábbi program a Maple beépített színezési szám utasításával számol, adott N-re (1..N csúcsok, relatív prím élekkel.) Kisebb N-ekre kiszámolja a színezési számot, de nekem nem sikerült vele N=100-ra kiszámoltatnom, azaz 10 perc után leállítottam. Több mint 3000 éle van ennek gráfnak. Továbbá nagy N-re ábrázolni sem érdemes, mert összemosódnak az élek.

    restart;with(GraphTheory):
    N:=10;
    nek:=$1..N;# csúcsok számozása
    R:={};# relativ prím csúcspárok létrehozása
    for k from 2 to N do
    for m from 1 to k-1 do
    if igcd(k,m)=1 then R := R union {{k,m}}: end if:
    end do;
    end do;
    G := Graph([nek]);# gráf létrehozása : csúcspontok
    AddEdge(G, R);# élek megadása
    DrawGraph(G);# rajzolása
    ChromaticNumber(G);# csúcsszínezési szám

  • petinho26
    #439
    helló
    Köszönöm szépen a segítséget xDJC-nek. NAgyon nagy segítség volt köszönöm szépen!!
  • topi302
    #438
    Üdvözletem!
    Köszönöm a segítséget xDJCx-nek!

    Egy újabb feladatban kérném a segítséget. Szintén Maple...
    A feladat:

    Az 1-től 100-ig terjedő egészeken mint cúcsokon definiáljunk egy gráfot, melyben pontosan azok a számok vannak (egyszeres, irányítatlan) éllel összekötve, melyek relatív prímek. Hozzuk létre a kívánt gráfot, és számítsuk ki a csúcsszínezési számát.

    Előre is köszönöm!
  • xDJCx
    #437
    A kuponos feladathoz a kísérletek szimulálására egy megoldás:

    KUPON:=proc(n::posint)
    local M,K,L,k,S1,S2,X,Xs,m;
    M:=1000;# kiserletek szama
    K:=20*n;# ennyi probalkozas legyen maximum egy kiserletben
    S1:={$1..n};# 1..n-ig az egeszek halmaza
    L:=Array(1..M):
    use Statistics in
    X:=RandomVariable(DiscreteUniform(1, n)):
    randomize();
    for k from 1 to M do # M db kiserlet
    S2:={};Xs:=convert(Sample(X,K),list);
    for m from 1 to K do
    S2:=S2 union {floor(Xs[m])};# tipsukonverzio miatt a floor
    if m=K then lprint("Kevés a probalkozasok száma!");end if;

    if S1 subset S2 then L[k]:=m:
    #lprint(k,m,Xs[1..m]):
    ;break: # ha 1..n-ig megvannak a szamok megall a kiserlet
    end if:
    end do:
    end do:
    Mean(L),min(L),max(L);
    end use:
    end proc;


    Például n=5-re:

    KUPON(5); # átlagot, min., maxot ír ki.

    A #lprint(k,m,Xs[1..m]): sor helyére lprint(k,m,Xs[1..m]): -et írva, kiírja az összes kísérlet eredményét.
  • xDJCx
    #436

    Az ingás feladatra egy megoldás (Maple 13-ban):

    INGA:=proc(theta0)
    description "Inga mozgása, bemenet: theta0 kezdeti szög fokban.";
    local thetao,x,y,t,ingaabra,theta,abrak,T;
    use plots in
    thetao:=2*Pi/360*theta0;
    T:=10;
    theta:=t->thetao*cos(2*Pi*t/T);
    x:=t->evalf(sin(theta(t))): y:=t->-evalf(cos(theta(t))):# koordináták idõfüggvénye
    ingaabra:=t->plot([[[x(t),y(t)]],[[0,0],[x(t),y(t)]]],style=[point,line],symbol=solidcircle,symbolsize=15,color=[red,black],title=typeset("szög = ",evalf[3](theta(t)/(2*Pi)*360))):
    abrak:=seq(ingaabra(r/5),r=0..T*5):
    display(abrak,insequence=true,axes=boxed,scaling=constrained,gridlines=true,axes=normal);
    end use:
    end proc;

    # próba: pl. 20 fokos maximális kilengésre

    INGA(20);
  • petinho26
    #435
    Ja, és azt lehagytam, hogy nagyon fontos lenne.
    A segítséget előre is köszönöm.
  • petinho26
    #434
    Helló
    Nekem segítségre lenne szükségem. Aki tud segítené lécci válaszoljon.
    a következők a feladatok:
    1 KEPLER
    Ábrázoljunk a Föld mozgását a Nap körül a Kepler-törvényeknek megfelelően (a Naphoz képest elhanyagolhatónak tekintve a Föld tömegét). Az animáció lehet 2 dimenziós, a Nap és a Föld egy-egy kör (nem kell méretarányosan). Az animáció egy teljes fordulatot jelenítsen meg.

    2 INGA
    Készítsünk animációt, mely egy hosszú kötélen függő gömb (inga) mozgását mutatja. Az inga mozgását közelítsük harmonikus rezgőmozgással. Paraméterként lehessen megadni, hogy hány fokos a maximális kilengés. Egy teljes periódust ábrázoljunk.

    3 KUPON
    Egy csokifajta minden dobozában található egy kupon, melyen az 1, 2, ..., n számok valamelyike (vagy ha úgy tetszik n sztár valamelyikének fényképe, vagy bármi hasonló) látható. Mindegyik kupon előfordulásának valószínűsége azonos (1/n). Átlagosan hány csokit kell venni ahhoz, hogy mindegyik kuponból összegyűljön legalább 1 darab? Végezzünk 1000 független kísérletet, és írjuk ki az átlagot, minimumot, maximumot. Az n érték paraméter.

    4 LAGRANGE
    Készítsünk listát, melyben azon 1 és n közötti egészek szerepelnek, melyek előállnak 4 négyzetszám összegeként, de 3 négyzetszám összegeként nem.
  • xDJCx
    #433

    Módosított eljárás (előbb nem találtam a közvetlen parancsot az oldalfelező merőleges rajzolásra):


    haromszog:=proc(p1,p2,p3)
    description "Háromszog, korulirt kore es oldalfelezo merolegesei. ";
    use geometry in
    # pontok objektumainak letrehozasa a p1, p2, p3 koordinata-listakbol
    point(A,op(p1));point(B,op(p2));point(C,op(p3));
    # egy egyenesen vannak-e a pontok
    if (AreCollinear(A,B,C)=true)
    then print("Nem alkotnak háromszöget a pontok!");
    else
    # haromszog objektum letrehozasa a csucspontokbol
    triangle(T,[A,B,C]);
    # korulirt kor letrehozasa
    circumcircle(Elc, T, 'centername' = o);detail(Elc);
    # oldalfelezo merolegesek
    PerpenBisector(pb1, A,B);PerpenBisector(pb2, A,C);PerpenBisector(pb3, B, C);
    draw([Elc(color=red),T(color=blue),pb1(color=brown),pb2(color=brown),pb3(color=brown)],printtext = true,axes=normal,gridlines=true);
    end if;
    end use;

    end proc;

  • xDJCx
    #432
    Pl. így:

    haromszog:=proc(p1,p2,p3)
    description "Háromszog, korulirt kore es oldalfelezo merolegesei. ";
    use geometry in
    # pontok objektumainak letrehozasa a p1, p2, p3 koordinata-listakbol
    point(A,op(p1));point(B,op(p2));point(C,op(p3));
    # egy egyenesen vannak-e a pontok
    if (AreCollinear(A,B,C)=true)
    then print("Nem alkotnak háromszöget a pontok!");
    else
    # haromszog objektum letrehozasa a csucspontokbol
    triangle(T,[A,B,C]);
    # korulirt kor letrehozasa
    circumcircle(Elc, T, 'centername' = o);detail(Elc);
    # a haromszog oldalegyenesei az oldalfelezo merolegesek eloallitasahoz
    line(e1, [A, B]);line(e2, [A, C]);line(e3, [C, B]);
    # oldalfelezo pontok
    midpoint(C1, A, B);midpoint(C2, A, C);midpoint(C3, C, B);
    # oldalfelezo merolegesek
    PerpendicularLine(ep1, C1,e1);PerpendicularLine(ep2, C2, e2);PerpendicularLine(ep3, C3, e3);
    draw([Elc(color=red),T(color=blue),ep1(color=brown),ep2(color=brown),ep3(color=brown)],printtext = true);
    end if;
    end use;

    end proc;


    A bemeneti csúcsontok koordinátáit kételemű listákban kell ennek az eljárásnak megadni:

    haromszog([0,0],[20,-10],[0,4]);

    haromszog([0,0],[0,-10],[0,4]);
  • topi302
    #431
    Üdv!
    Egy feladat megoldása érdekelne! Aki tud segíteni annak előre is köszönöm! Mielőbbi megoldás érdekelne!!!
    A feladat:

    Háromszög köré írt kör Írjunk olyan eljárást, amelynek bemenő paramétere három síkbeli pont. Ellenőrizzük, hogy ez a három pont egy egyenesre esik-e. Ha nem, akkor rajzoljuk meg közös koordináta rendszerben az általuk alkotott háromszöget, azok oldalfelező merőlegeseit és a háromszög köré írt kört. Használjuk ehhez a geometry package-et!

    Előre is köszönöm a segítséget!
  • Performance
    #430

    Köszi, megtaláltam korábban ezt a leírást, viszont a TEMP és TMP könyvtárak számára valószínű nem megfelelő környezeti változót adtam meg, mert maradt a hibaüzenet.
    Valamint a "silent" installálás alatt nem tudom mit értenek a leírásban, amit belinkeltél.
  • xDJCx
    #429
    Itt írnak erről:

    http://www.maplesoft.com/support/faqs/detail.aspx?sid=32607
  • Performance
    #428
    Sziasztok!

    Maple 13 telepítése közben az alábbi hibaüzenetet írja ki:

    "Installer user interface mode not supported. Unable to load and prepare the installer in GUI mode"

    Hogyan tudom folytatni a program telepítését?

    Előre is köszönöm!
  • xDJCx
    #427

    Próbáltad ezt (a contourplot argumentumai közé téve)?

    axis[1]=[mode=log],axis[2]=[mode=log]

    Ez régebbi Maple-verziókban nem biztos, hogy működik.
    A súgóban axis-ra keresve van leírás róla.
  • ZilogR
    #426
    Megakadtam egy ábrázolás közben - hátha vki tudja kapásból a helyes utat:

    Szintvonalakat rajzolok 2D-ben (egy 3 változós fgv-ét: z=z(x,y) és ennek a z1, z2, ..., zN értékekhez tartozó kontúrjait rajzolom, h lehessen kinyomtatni)

    Hogyan lehet azt beállítani, h a két tengely (vagy külön-külön) logaritmikus léptékűek legyenek??

    contourplot(z,x=xmin..xmax,y=ymin..ymax,contours=[z1, z2, z3, ...] alakú, amit használok.
    Előre is köszönöm!