Advanced Search

Question: please help me export data

Question:please help me export data

permanoon123 165 Maple 18
excel export
March 16 2020
0

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
Please Wait...