Кривая ползучести

>    restart;

>    p:=P(t):s:=S(t):

>    eq:=diff(p,t)=A*(s-k*p)^2;

>    S(t):=c:

>    sol:=dsolve({eq,P(0)=0},p);assign(sol):

eq := diff(P(t),t) = A*(S(t)-k*P(t))^2

sol := P(t) = t/k*c/(t+1/(A*k*c))

Разные напряжения

>    g1:=plot(subs(A=1,c=1,k=1,P(t)),t=0..10,color=blue):

>    g2:=plot(subs(A=1,c=2,k=1,P(t)),t=0..10):

>    with(plots): 

Warning, the name changecoords has been redefined

>    display(g1,g2);

[Maple Plot]