Анимация

Домашнее задание: Задача 1

Clear[a,b,α,β,ψ,ψ1,ψ2]
b[t_,α_]=α t;
a[t_,β_]=β t;
ψ[t_,x_,α_,β_,ω_]=(E^(-((((x-a[t,β]))^2)/2)))Exp[I(ω x-b[t,α])];
ψ1[t_,x_,α_,β_,ω_]=Re[ψ[t,x,α,β,ω]];
ψ2[t_,x_,α_,β_,ω_]=Im[ψ[t,x,α,β,ω]];
((Abs[ψ[t,x,α,β,ω]])^2)

t1=10;
ω1=7;
Animate[
Plot[Re[ψ[t,x,2,.5,ω1]],{x,-10,10},PlotRange->{-1.1,1.1}]
,{t,0-t1,t1}
]

t1=10;
ω1=9;
α1=9;
β1=.5;
Animate[
Plot[{Re[ψ[t,x,α1,β1,ω1]],Abs[ψ[t,x,α1,β1,ω1]]},{x,-10,10},PlotRange->{-1.1,1.1},PlotStyle->{Blue,{Orange,Thickness[.01]}},AspectRatio->(((2GoldenRatio))^(-1))]
,{t,0-t1,t1},DefaultDuration->15
]

t1=10;
ω1=3;
α1=2;
β1=.5;
Manipulate[
Plot[Re[ψ[t,x,α1,β1,ω]],{x,-10,10},PlotRange->{-1.1,1.1}]
,{t,0-t1,t1}
,{ω,ω1,3ω1}
]

γ[t_]=(E^(1/t-1))
R[t_]=γ[t];
r[t_]=γ[t].3;
Θ[t_]=π/R[t];
Λ[t_]=Θ[t];
Manipulate[
ParametricPlot3D[
{(R[t]+r[t]Cos[ϕ])Cos[θ],(R[t]+r[t]Cos[ϕ])Sin[θ],r[t]Sin[ϕ]},{θ,π-Θ[t],π+Θ[t]},{ϕ,-Λ[t],Λ[t]}
,Axes->False,ViewPoint->{R[t]Cos[ξ],R[t]Sin[ξ],1}
]
,{t,.2,1},{ξ,0,2π}
]

Комбинирование графических объектов

Создание списка объектов Graphics

G=List[];
α0=π/6;
G=Append[G,Graphics[{Blue,Circle[{0,0},1.05]}]];
For[j=0,j<2π/α0,j++,
G=Append[G,Graphics[{RGBColor[((j α0)/(2π)),1-((j α0)/(2π)),0],Polygon[{{0,0},{Cos[j α0],Sin[j α0]},{Cos[(j+1) α0],Sin[(j+1) α0]}}]}]
]
];
Show[G]

Задача 3 из домашнего задания - первая итерация

Clear[v,t]
ParametricPlot[{v*E^-t Sin[4 t],v*E^-t Cos[4 t]},{t,0,4},{v,0,30},PlotPoints->60,MeshFunctions->{#3&},MeshShading->{Blue,Red,Green,Yellow},PlotRange->{{-10,22},{-15,30}}]