F(x):=x->piecewise(x<-L,0, x<0,alpha*(1+x/L),xL,0);
f(x):=0;
> plot(F(x),-16..16,-0.1..1.1, numpoints=400,color=blue,thickness=3);
Yechish uchun dalamber formulasidan foydalanamiz:
> restart;
> F(x):=x->piecewise(x<-L,0, x<0,alpha*(1+x/L),xL,0);
f(xi):=0;
> u(t,x):=subs(x=x-a*t,1/2*piecewise(x<-L,0, x<0,alpha*(1+x/L),xL,0))+(subs(x=x+a*t,1/2*piecewise(x<-L,0, x<0,alpha*(1+x/L),xL,0)));
Olingan yachimni ikki o'lchamli animirlangan grafik ko'rinishida tasvirlaymiz:
> with(plots):
Do'stlaringiz bilan baham: |