Karsai János
Typotex
A könyvben használt, az elektronikus melléklettel együtt letölthető speciális programcsomagok tartalmát ismertetjük az alábbiakban.
A programcsomagok betöltése
Az alábbi program lefuttatása szükséges a könyvben levő Mathematica programok futtatása előtt. A programcsomagokat másoljuk a munkamappa package
almappájába.
SetDirectory[
"FileName"/.NotebookInformation[EvaluationNotebook[]]/.
FrontEnd`FileName[d_List,nam_,___]:›ToFileName[d]];
$DefaultFont={"Times",10};
///<//////<///"impulse-init.m"
///<//////<///"Calculus`DiracDelta`"
A programcsomagok tartalma
Az impulse-init.m file tartalma
[D]
///<//////<///Graphics`PlotField`
///<//////<///Graphics`PlotField3D`
///<//////<///Graphics`ParametricPlot3D`
///<//////</// Graphics`ContourPlot3D`
///<//////</// Graphics`ImplicitPlot`
///<//////</// Graphics`Arrow`
///<//////<///"package\\Idesolve.m"
///<//////<///"package\\IdeRKsolve.m"
///<//////<///"package\\odesolve.m"
///<//////<///"package\\Phase2D.m"
///<//////<///"package\\impulseplot.m"
///<//////<///"package\\special.m"
Differenciálegyenletek megoldása: ODESolve programcsomag
ODEGen[vec,var]
Differenciálegyenlet készítése iránymezőből a Dsolve
számára
ICGen[IC,t0,var]
Kezdetiérték-egyenletek készítése adatokból a Dsolve
számára
FGen[var,t]
Függvény készítése változókból
ODEICGen[vec,IC,t0,var]
Kezdetiérték-probléma készítése a DSolve
számára
ODESolve[xdot,var,IC,{t,t0,T},opt]
Közönséges differenciálegyenlet megoldása több kezdeti feltétellel
Impulzív rendszerek rögzített pillanatokban ható impulzusokkal: IDESolve programcsomag
IDESolve[xdot,var,tn,Imp,IC,{t,t0,T},opt]
Impulzív rendszer megoldása rögzített pillanatokban ható impulzusokkal
Általános impulzív rendszerek: IDESolve programcsomag
IDERKSolve[xdot,Impulse,var,IC,{t,t0,t1,dt}]
Általános impulzív rendszer megoldása
Impulzusok ábrázolása: ImpulsePlot programcsomag
PlotFixedImpulseField[Imp,tn,NN,{x,x0,x1,dx},opt]
Skaláris
[D]
[D]
AnimateImpulse[Imp,tn,NN,{x,x0,x1},opt]
Skaláris impulzus-leképezés animációja a tn lista elemei szerint
StackImpulse[Imp,tn,NN,{x,x0,x1},opt]
Skaláris impulzus-leképezés ábrázolása a
[D]
ContourFieldPlot2D[surf,fld,{x,x0,x1},{y,y0,y1},{ContourOpt,FieldOpt,ShowOpt}]
Az fld
mező
[D]
PlotFixedImpulseField3D[Imp,tn,NN,{x,x0,x1,dx},{y,y0,y1,dy},opt]
Síkbeli
[D]
[D]
JumpPlot[SS,II,{t,t0,t1},{x,x0,x1},opt]
Az SS
=0 és az II
impulzussal transzformált görbe képe a
[D]
JumpPlot3D[SS,II,{t,t0,t1},{x,x0,x1},{y,y0,y1},opt]
Az SS
=0 és az II
impulzussal transzformált felület képe a
[D]
AutonomousJumpPlot2D[SS,II,{x,x0,x1},{y,y0,y1},opt]
Az SS
=0 görbére ható II
impulzusok ábrázolása az
[D]
AutonomousJumpPlot3D[SS,II,{x,x0,x1},{y,y0,y1},opt]
Az SS
=0 felületre ható II
impulzusok ábrázolása a
[D]
Megoldások és trajektóriák ábrázolása: Phase2D programcsomag
ParametricPlotColor[xy,{t,t0,t1},opt]
Színes ParametricPlot
PhasePlot[Traj,{t,t0,t1},par]
, PhasePlotBW[Traj,{t,t0,t1},par]
Síkbeli paraméteres görbecsalád színes (egyszínű) ábrázolása
ListPhasePlot[sol,lineopt,opt]
[D]
PhaseMap[Traj,{t,t1},lineopt,opt]
Síkbeli paraméteres görbecsalád fázisképe a
[D]
PhaseMap[Traj,{t,t0,t1,dt},opt]
Síkbeli paraméteres görbecsalád fázisképe a
[D]
PhaseMapImp[Traj,{t,t1},lineopt,opt]
Impulzív trajektóriacsalád fázisképe a
[D]
[D]
PhaseMapImp[Traj,{t,tn},lineopt,opt]
Impulzív trajektóriacsalád fázisképe a
[D]
ListPhaseMap[Traj,{t,t1},opt]
[D]
ListPhaseMap[Traj,{t,t0,t1,dt},opt]
[D]
SolCoordPlot[Traj,{t,t0,T},Icoord,opt]
Paraméteres görbecsalád adott koordinátájának ábrázolása
SolPlot[Traj,{t,t0,T},label,opt]
Paraméteres görbecsalád koordinátáinak ábrázolása grafikus tömbben
ListSolPlot[sol,Label,opt]
[D]
SolPlot3D[Traj,{t,t0,T},opt]
, SolPlot3DBW[Traj,{t,t0,T},opt]
[D]
ListSolPlot3D[sol,lineparm,opt]
[D]
PhaseVol[Traj,{t,t1},lineopt,opt]
A {t,Traj} paraméteres görbecsalád fázisképe a
[D]
PhaseVol[Traj,{t,t0,t1,dt},lineopt,opt]
, PhaseVolBW[Traj,{t,t0,t1,dt},lineopt,opt]
A {t,Traj} paraméteres görbecsalád fázisképei a
[D]
PhaseVolImp[Traj,{t,t1},lineopt,opt]
Impulzív {t,Traj} görbecsalád fázisképei a
[D]
[D]
PhaseVolImp[Traj,{t,tn},lineopt,opt]
, PhaseVolImpBW[Traj,{t,tn},lineopt,opt]
Impulzív {t,Traj} görbecsalád fázisképei a
[D]
PlotContourLine3D[f,{x,x0,x1},{y,y0,y1},{t,t0,t1,dt},opt]
Az
[D]
[D]
[D]
Egyéb függvények: Spcecial.m csomag