Advanced Search

Rocklass

10 Reputation

One Badge

11 years, 92 days
Contact Rocklass

MaplePrimes Activity


These are replies submitted by Rocklass

Common_file.mw (1) ...

Rocklass 10
April 10 2014
0 1

Common_file.mw

restart

with(PDEtools, casesplit, declare):

with(DEtools, gensys):

with(DEtools):

declare(Y(x, t))

Y(x, t)*`will now be displayed as`*Y

 (1)

b0 := 0;

0

 (2)

sys0 := (diff(Y(x, t), `$`(x, 2), t))*exp(2*x*b0)+diff(Y(x, t), t)+diff(Y(x, t), `$`(x, 2)) = 0;

diff(diff(diff(Y(x, t), t), x), x)+diff(Y(x, t), t)+diff(diff(Y(x, t), x), x) = 0

 (3)

(4)

ibc := {Y(0, t) = .1, Y(x, 0) = 0, (D[1](Y))(0, t) = 0};

{Y(0, t) = .1, Y(x, 0) = 0, (D[1](Y))(0, t) = 0}

 (5)

(6)

pds0 := pdsolve(sys0, ibc, numeric, time = t, range = 0 .. 20)

module () local INFO; export plot, plot3d, animate, value, settings; option `Copyright (c) 2001 by Waterloo Maple Inc. All rights reserved.`; end module

 (7)

pds0:-plot3d(t = 0 .. 7, x = 0 .. 20, axes = boxed, title = 'Ãðàôèê*àìïëèòóäû*`ïîïåðå÷íîãî`*ê*x*îòêëîíåíèÿ*îñè*ñèììåòðèè*ýëåêòðîííîãî*ïîòîêà*â*áåçðàçìåðíîì*âèäå*äëÿ*äëèíû*Íîðäñèêà*ðàâíîãî*íóëþ')

  

b1 := 0.5e-1;

0.5e-1

 (8)

sys1 := (diff(Y(x, t), `$`(x, 2), t))*exp(2*x*b1)+diff(Y(x, t), t)+diff(Y(x, t), `$`(x, 2));

(diff(diff(diff(Y(x, t), t), x), x))*exp(.10*x)+diff(Y(x, t), t)+diff(diff(Y(x, t), x), x)

 (9)

pds1 := pdsolve(sys1, ibc, numeric, time = t, range = 0 .. 20)

module () local INFO; export plot, plot3d, animate, value, settings; option `Copyright (c) 2001 by Waterloo Maple Inc. All rights reserved.`; end module

 (10)

pds1:-plot3d(t = 0 .. 7, x = 0 .. 20, axes = boxed, title = 'Ãðàôèê*àìïëèòóäû*`ïîïåðå÷íîãî`*ê*x*îòêëîíåíèÿ*îñè*ñèììåòðèè*ýëåêòðîííîãî*ïîòîêà*â*áåçðàçìåðíîì*âèäå*äëÿ*äëèíû*Íîðäñèêà*ðàâíîãî*ïÿòü*ñîòûõ')

  

``

b2 := .1;

.1

 (11)

sys2 := (diff(Y(x, t), `$`(x, 2), t))*exp(2*x*b2)+diff(Y(x, t), t)+diff(Y(x, t), `$`(x, 2));

(diff(diff(diff(Y(x, t), t), x), x))*exp(.2*x)+diff(Y(x, t), t)+diff(diff(Y(x, t), x), x)

 (12)

pds2 := pdsolve(sys2, ibc, numeric, time = t, range = 0 .. 20)

module () local INFO; export plot, plot3d, animate, value, settings; option `Copyright (c) 2001 by Waterloo Maple Inc. All rights reserved.`; end module

 (13)

pds2:-plot3d(t = 0 .. 7, x = 0 .. 20, axes = boxed, title = 'Ãðàôèê*àìïëèòóäû*`ïîïåðå÷íîãî`*ê*x*îòêëîíåíèÿ*îñè*ñèììåòðèè*ýëåêòðîííîãî*ïîòîêà*â*áåçðàçìåðíîì*âèäå*äëÿ*äëèíû*Íîðäñèêà*ðàâíîãî*îäíîé*äåñÿòîé')

  

pds0:-plot(t = 4, x = 0 .. 20, title = 'Ãðàôèê*àìïëèòóäû*`ïîïåðå÷íîãî`*ê*x*îòêëîíåíèÿ*îñè*ñèììåòðèè*ýëåêòðîííîãî*ïîòîêà*â*áåçðàçìåðíîì*âèäå*äëÿ*äëèíû*Íîðäñèêà*ðàâíîãî*íóëþ*ïðè*òàó*ðàâíîìó*`÷åòûðåì`')

  

pds1:-plot(t = 4, x = 0 .. 20, title = 'Ãðàôèê*àìïëèòóäû*`ïîïåðå÷íîãî`*ê*x*îòêëîíåíèÿ*îñè*ñèììåòðèè*ýëåêòðîííîãî*ïîòîêà*â*áåçðàçìåðíîì*âèäå*äëÿ*äëèíû*Íîðäñèêà*ðàâíîãî*ïÿòü*ñîòûõ*ïðè*òàó*ðàâíîìó*`÷åòûðåì`')

  

 

pds2:-plot(t = 4, x = 0 .. 20, title = 'Ãðàôèê*àìïëèòóäû*`ïîïåðå÷íîãî`*ê*x*îòêëîíåíèÿ*îñè*ñèììåòðèè*ýëåêòðîííîãî*ïîòîêà*â*áåçðàçìåðíîì*âèäå*äëÿ*äëèíû*Íîðäñèêà*ðàâíîãî*îäíîé*äåñÿòîé*ïðè*òàó*ðàâíîìó*`÷åòûðåì`')

  

 

NULL

NULL



Download Common_file.mw

 

Page 1 of 1