permanoon123

Mr. Erfan Permanoon

160 Reputation

5 Badges

1 years, 148 days

MaplePrimes Activity


These are questions asked by permanoon123

help me for solve the error of plot

p1.mw

please help me export data of for(do) to excel


 

restart

Digits := 8

with(plots)

with(CurveFitting)

with(plottools)

with(ExcelTools)

v := .7

Disp := 20

esp := 1000000

k := 0

E := proc (x, t) options operator, arrow; Int(exp((-esp*w^4+Disp*w^2+k)*t)*cos(w*(x+v*t))/Pi, w = 0 .. infinity, epsilon = 0.1e-6) end proc

proc (x, t) options operator, arrow; Int(exp((-esp*w^4+Disp*w^2+k)*t)*cos(w*(x+v*t))/Pi, w = 0 .. infinity, epsilon = 0.1e-6) end proc

(1)

"f(x):=15.5*(e)^((-(x-12590)^(2))/(3710000))+14.55*(e)^((-(x-16100)^(2))/(3000000)):"

NULL

u := proc (x, t) options operator, arrow; Int(E(x-xi, t)*f(xi), xi = 0 .. 0.2e5, epsilon = 0.1e-4) end proc

proc (x, t) options operator, arrow; Int(E(x-xi, t)*f(xi), xi = 0 .. 0.2e5, epsilon = 0.1e-4) end proc

(2)

NULL

NULL

uu := evalf(Int(E(0-xi, i)*f(xi), xi = 0 .. 20000, method = _NCrule, epsilon = 10^(-6)))

Int((Int(.31830988*exp((-1000000.*w^4+20.*w^2)*i)*cos(w*(-1.*xi+.7*i)), w = 0. .. Float(infinity)))*(15.5*exp(-0.26954178e-6*(xi-12590.)^2)+14.55*exp(-0.33333333e-6*(xi-16100.)^2)), xi = 0. .. 20000.)

(3)

for i from 0 by 300 to 39000 do evalf(Int(E(0-xi, 39000-i)*f(xi), xi = 0 .. 20000, method = _NCrule, epsilon = 10^(-6))) end do

-0.40453181e-3

 

0.34992127e-3

 

0.12637278e-2

 

0.16816398e-2

 

0.98280208e-3

 

-0.90049939e-3

 

-0.31323275e-2

 

-0.41557391e-2

 

-0.25326936e-2

 

0.18889271e-2

 

0.72213081e-2

 

0.99627384e-2

 

0.68245493e-2

 

-0.27701468e-2

 

-0.15052225e-1

 

-0.22679194e-1

 

-0.18343538e-1

 

0.20091767e-3

 

0.26631663e-1

 

0.47005735e-1

 

0.46070677e-1

 

0.16544944e-1

 

-0.33724783e-1

 

-0.81923601e-1

 

-0.99668403e-1

 

-0.68223938e-1

 

0.83269218e-2

 

.10029034

 

.16367514

 

.16160510

 

0.85214080e-1

 

-0.37861317e-1

 

-.15374440

 

-.20787576

 

-.17365568

 

-0.69367811e-1

 

0.46138347e-1

 

0.98175763e-1

 

0.30797102e-1

 

-.16333068

 

-.42882780

 

-.65291065

 

-.68519320

 

-.36491699

 

.45065352

 

1.8601309

 

3.8933757

 

6.4921833

 

9.4993084

 

12.664412

 

15.671497

 

18.185563

 

19.912262

 

20.654429

 

20.352632

 

19.099001

 

17.122716

 

14.750504

 

12.351527

 

10.277969

 

8.8110726

 

8.1121013

 

8.2595148

 

9.1484300

 

10.625106

 

12.470000

 

14.442900

 

16.334977

 

17.814817

 

18.760786

 

19.181587

 

18.732976

 

17.780388

 

16.318411

 

14.486252

 

12.440398

 

10.334385

 

8.3022216

 

6.4471886

 

4.8365207

 

3.5019327

 

2.4446257

 

1.6429774

 

1.0611606

 

.65712596

 

.38895586

 

.21914009

 

.11682497

 

0.58405315e-1

 

0.26982858e-1

 

0.11209327e-1

 

0.39351902e-2

 

0.94525962e-3

 

-0.74540895e-4

 

-0.29495088e-3

 

-0.25204186e-3

 

-0.16004845e-3

 

-0.86532870e-4

 

-0.41463181e-4

 

-0.17899580e-4

 

-0.69278927e-5

 

-0.23491366e-5

 

-0.66829402e-6

 

-0.13686514e-6

 

-0.76837315e-8

 

0.49022551e-8

 

-0.69948640e-9

 

0.21531116e-8

 

0.94383197e-8

 

0.13935450e-7

 

0.74857886e-8

 

-0.17655857e-7

 

-0.20268315e-7

 

0.19079956e-6

 

0.10964273e-6

 

-0.46401214e-7

 

0.65111854e-8

 

0.19030541e-9

 

-0.32052754e-6

 

-0.33434254e-7

 

0.21130779e-7

 

-0.60700260e-9

 

-0.15371908e-9

 

0.56652633e-10

 

-0.29781841e-10

 

-0.17334684e-11

 

0.20761743e-11

 

0.98264048e-9

 

0.43165138e-11

 

-0.28235638e-7

(4)

NULL

NULL

NULL


 

Download getD1.mw

Help me to export data of 3d plot

Download export.mw


 

NULLrestart

Digits := 10:

with(plots):

with(CurveFitting):

with(plottools):

v := .7:

Disp := 20:

esp := 800000:

k := 0:

E := proc (x, t) options operator, arrow; int(exp((-esp*w^4+Disp*w^2+k)*t)*cos(w*(x+v*t))/Pi, w = 0. .. infinity) end proc;

proc (x, t) options operator, arrow; int(exp((-esp*w^4+Disp*w^2+k)*t)*cos(w*(x+v*t))/Pi, w = 0. .. infinity) end proc

(1)

f := proc (x) options operator, arrow; 20*exp(-(1/2000000)*(x-10000)^2)+15*exp(-(1/2000000)*(x-13800)^2) end proc:

 

 

u := proc (x, t) options operator, arrow; int(E(x-xi, t)*f(xi), xi = 0. .. 20000) end proc;

proc (x, t) options operator, arrow; int(E(x-xi, t)*f(xi), xi = 0. .. 20000) end proc

(2)

``

plot(u(x, t), x = 1500, t = 0 .. 60000, numpoints = 100)

Error, (in plot) unexpected options: [x = 1500, t = 0 .. 60000]

 

 

NULL

 

``

NULL


 

Download antegral.mw

1 2 3 4 Page 1 of 4