mehdibgh

235 Reputation

6 Badges

7 years, 46 days

MaplePrimes Activity


These are questions asked by mehdibgh

Why I maple dont send out 1????

I expcect Q be 1, but receive  .9261583073444211949, Why?


 

``

restart

A := Matrix(10, 10, {(1, 1) = 0.358665012985547e-3, (1, 2) = -0.164628637225196e-2, (1, 3) = 0.808705603350256e-3, (1, 4) = 0.131914692392149e-2, (1, 5) = -0.120745384995453e-2, (1, 6) = -0.127685186328850e-3, (1, 7) = -0.368262140727460e-3, (1, 8) = 0.722934152182773e-3, (1, 9) = 0.406838157326509e-3, (1, 10) = -0.270949354604275e-3, (2, 1) = -1.04811784877605, (2, 2) = -0.227246433636184e-2, (2, 3) = 1.12987295590946, (2, 4) = 0.320910227706809e-2, (2, 5) = -0.837137925723646e-1, (2, 6) = -0.590494756927829e-3, (2, 7) = 0.141893953127997e-2, (2, 8) = -0.431705701475750e-3, (2, 9) = 0.529611988652095e-3, (2, 10) = 0.876913927974057e-4, (3, 1) = -0.186537779517955e-2, (3, 2) = 0.731113455007046e-3, (3, 3) = -0.916700660778503e-2, (3, 4) = -0.429742144388156e-2, (3, 5) = 0.171402262358938e-1, (3, 6) = 0.147242552352914e-2, (3, 7) = -0.837021118160759e-2, (3, 8) = 0.348174114649671e-2, (3, 9) = 0.225687533471807e-2, (3, 10) = -0.139775301206369e-2, (4, 1) = -1.52107139964422, (4, 2) = 0.808077875491177e-2, (4, 3) = 1.64372029140351, (4, 4) = -0.847286100516818e-2, (4, 5) = -.127335986762229, (4, 6) = 0.118070315638635e-2, (4, 7) = 0.424032693235149e-2, (4, 8) = -0.111038208252920e-2, (4, 9) = 0.434602411991222e-3, (4, 10) = 0.318930385884084e-3, (5, 1) = 0.289424730370674e-2, (5, 2) = -0.172887794344293e-2, (5, 3) = 0.157061251396572e-1, (5, 4) = -0.363778806608431e-2, (5, 5) = -0.221497403961738e-1, (5, 6) = 0.205810013144210e-2, (5, 7) = 0.290388608347142e-2, (5, 8) = 0.554530769943721e-2, (5, 9) = 0.645600822073613e-3, (5, 10) = -0.223995662113480e-2, (6, 1) = 4.05367823691209, (6, 2) = -0.669541776787987e-2, (6, 3) = -4.37687402333541, (6, 4) = 0.100071882622313e-1, (6, 5) = .331612307231483, (6, 6) = -0.222866442868341e-2, (6, 7) = -0.854247230826875e-2, (6, 8) = -0.198825849939076e-2, (6, 9) = 0.144764377225621e-3, (6, 10) = 0.887581546748840e-3, (7, 1) = 0.437884803847533e-3, (7, 2) = -0.468560550990847e-2, (7, 3) = -0.274035269283456e-2, (7, 4) = 0.132221205985872e-2, (7, 5) = 0.587286710360397e-2, (7, 6) = 0.141670610986008e-2, (7, 7) = -0.324890905770655e-2, (7, 8) = 0.346314407352620e-2, (7, 9) = -0.313507643096885e-3, (7, 10) = -0.150449109852917e-2, (8, 1) = -1.74365543905306, (8, 2) = 0.329936253329467e-2, (8, 3) = 1.88180005384087, (8, 4) = -0.307966351872919e-2, (8, 5) = -.141724173079475, (8, 6) = 0.461487956516473e-3, (8, 7) = 0.455622531837965e-2, (8, 8) = -0.147959204065083e-2, (8, 9) = -0.964311997155483e-3, (8, 10) = 0.776900663643289e-3, (9, 1) = -0.182153308681337e-2, (9, 2) = 0.731579627122705e-2, (9, 3) = -0.459671306590223e-2, (9, 4) = 0.528628529817773e-2, (9, 5) = 0.340926625224384e-3, (9, 6) = -0.480044705401815e-2, (9, 7) = 0.906564729308528e-2, (9, 8) = -0.131891681339107e-1, (9, 9) = -0.298963526401197e-2, (9, 10) = 0.539189475787896e-2, (10, 1) = .259153153490112, (10, 2) = -0.239896326933024e-2, (10, 3) = -.278509331317189, (10, 4) = -0.165332320182602e-2, (10, 5) = 0.211686310866469e-1, (10, 6) = 0.115660284907533e-2, (10, 7) = -0.165524436062079e-2, (10, 8) = 0.496708050164578e-2, (10, 9) = -0.161592001287913e-3, (10, 10) = -0.203232293033617e-2})

Q := A/max(abs(A)):

max(Q)

.926158307610656317

(1)

``


 

Download suuual.mw

 

 

 

Why I couln't receive the value of Wn[0, 0, 1] in the following loop?

Download sual.mw

 

> restart;

>for n from 1 to 3 do

Wn[0 .. 1, 0 .. 1, n] := n*ArrayTools:-Alias(Matrix(2, 2, [[3, 1], [1, 3]]), [0 .. 1, 0 .. 1])

end do:
>Wn[0, 0, 1];

Wn[0, 0, 1]

 

In the following program why the first row of Matrix P is costant, while I expect it varies?


 

``

``

restart

with(LinearAlgebra):

MCK := Matrix(1, 1, {(1, 1) = 0.1627682387e-16*mu})

P := Matrix(2, 111):

`ρ__∞` := 1.225:

j := 1:

for `U__&infin;` from 333 to 335 do `M__&infin;` := `U__&infin;`/(331.2); mu := `&rho;__&infin;`*`U__&infin;`*(`M__&infin;`^2-2)/sqrt((`M__&infin;`^2-1)^3); P[1 .. 2, j] := `<,>`(`<,>`(MCK), `<,>`(j)); j := j+1 end do:

P[1, 1 .. j-1]

Vector[row]([0.1627682387e-16*mu, 0.1627682387e-16*mu, 0.1627682387e-16*mu])

(1)

``


 

Download Sooal.mw

I have a worksheet using sai.m (consists of Xi_hat values as a table) and TKtm.m (consists of equation). When I run the ws the values of Psi_hats dont evaluated in TKtm eq, but when I copy the TKtm and paste it in new row they are evaluated. Why?


 

``

``

restart

read "sai.m"``

``

read "TKtm.m"

TKtm

-HFloat(8.471127434835482e-8)*(-HFloat(3.2871687813435684e-4)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[0, 0]-HFloat(8.41455103438575e-4)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[1, 0]-HFloat(1.1842546165173334e-4)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[2, 0]+HFloat(3.538379030573464e-4)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[3, 0]+HFloat(1.4352419825010453e-4)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[0, 1]+HFloat(4.8104977164910354e-5)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[2, 1]+HFloat(5.05930283832792e-4)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[3, 1]-HFloat(4.1386253796027285e-5)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[4, 1]-HFloat(0.0011373448609075419)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[0, 2]-HFloat(4.732392115584591e-4)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[1, 2]+HFloat(2.089803495158474e-4)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[2, 2]+HFloat(1.989801635177615e-4)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[3, 2]+HFloat(8.603626184898737e-6)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[4, 2]-HFloat(6.14439676933793e-5)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[0, 3]+HFloat(5.151239824352348e-4)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[1, 3]-HFloat(2.0604843790262536e-5)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[2, 3]-HFloat(2.165887607592778e-4)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[3, 3]+HFloat(1.7717825274845376e-5)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[4, 3]+HFloat(6.673501129170035e-4)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[0, 4]+HFloat(3.5580629365501574e-4)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[1, 4]-HFloat(1.0277832120686807e-4)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[2, 4]-HFloat(1.4960967814699452e-4)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[3, 4]-HFloat(1.5776267653365094e-5)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[4, 4]-HFloat(2756.100581746564)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[4, 4]^2-HFloat(31892.02101692787)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[3, 0]^2-HFloat(74414.71570120404)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[0, 1]^2-HFloat(6378.404203385573)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[2, 3]^2-HFloat(4556.003002418266)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[3, 3]^2-HFloat(223244.14710361214)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[0, 0]^2-HFloat(74414.71570120404)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[1, 0]^2-HFloat(44648.829420722424)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[2, 0]^2-HFloat(14882.94314024081)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[2, 1]^2-HFloat(10630.67367478978)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[3, 1]^2-HFloat(8268.301743751397)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[4, 1]^2-HFloat(44648.829420722424)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[0, 2]^2-HFloat(14882.94314024081)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[1, 2]^2-HFloat(8929.765884144486)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[2, 2]^2-HFloat(6378.404203385573)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[3, 2]^2-HFloat(4960.9810462508385)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[4, 2]^2-HFloat(31892.02101692787)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[0, 3]^2-HFloat(10630.67367478978)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[1, 3]^2-HFloat(3543.5578891161026)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[4, 3]^2-HFloat(24804.90522381272)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[0, 4]^2-HFloat(8268.301743751397)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[1, 4]^2-HFloat(4960.981047739132)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[2, 4]^2-HFloat(3543.557890604397)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[3, 4]^2+HFloat(9.924710058946695e-5)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[4, 0]-HFloat(24804.90522381272)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[4, 0]^2-HFloat(0.0012032458385423347)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[1, 1]-HFloat(24804.90522381272)*`#mover(mi("&Xi;",fontstyle = "normal"),mo("&uminus0;"))`[1, 1]^2-HFloat(0.4030903729505378))*(diff(tau[1](t), t))^2

(1)

-8.47112743483548*10^(-8)*(-2.23244147103612*10^5*`#mover(mi("&Xi;"),mo("&uminus0;"))`[0, 0]^2-.403090372950538-24804.9052238127*`#mover(mi("&Xi;"),mo("&uminus0;"))`[1, 1]^2-24804.9052238127*`#mover(mi("&Xi;"),mo("&uminus0;"))`[4, 0]^2-0.120324583854233e-2*`#mover(mi("&Xi;"),mo("&uminus0;"))`[1, 1]-3543.55789060440*`#mover(mi("&Xi;"),mo("&uminus0;"))`[3, 4]^2+0.992471005894670e-4*`#mover(mi("&Xi;"),mo("&uminus0;"))`[4, 0]-8268.30174375140*`#mover(mi("&Xi;"),mo("&uminus0;"))`[1, 4]^2-4960.98104773913*`#mover(mi("&Xi;"),mo("&uminus0;"))`[2, 4]^2-3543.55788911610*`#mover(mi("&Xi;"),mo("&uminus0;"))`[4, 3]^2-24804.9052238127*`#mover(mi("&Xi;"),mo("&uminus0;"))`[0, 4]^2-31892.0210169279*`#mover(mi("&Xi;"),mo("&uminus0;"))`[0, 3]^2-10630.6736747898*`#mover(mi("&Xi;"),mo("&uminus0;"))`[1, 3]^2-8929.76588414449*`#mover(mi("&Xi;"),mo("&uminus0;"))`[2, 2]^2-6378.40420338557*`#mover(mi("&Xi;"),mo("&uminus0;"))`[3, 2]^2-4960.98104625084*`#mover(mi("&Xi;"),mo("&uminus0;"))`[4, 2]^2-44648.8294207224*`#mover(mi("&Xi;"),mo("&uminus0;"))`[0, 2]^2-14882.9431402408*`#mover(mi("&Xi;"),mo("&uminus0;"))`[1, 2]^2-10630.6736747898*`#mover(mi("&Xi;"),mo("&uminus0;"))`[3, 1]^2-8268.30174375140*`#mover(mi("&Xi;"),mo("&uminus0;"))`[4, 1]^2-44648.8294207224*`#mover(mi("&Xi;"),mo("&uminus0;"))`[2, 0]^2-14882.9431402408*`#mover(mi("&Xi;"),mo("&uminus0;"))`[2, 1]^2-74414.7157012040*`#mover(mi("&Xi;"),mo("&uminus0;"))`[1, 0]^2-6378.40420338557*`#mover(mi("&Xi;"),mo("&uminus0;"))`[2, 3]^2-4556.00300241827*`#mover(mi("&Xi;"),mo("&uminus0;"))`[3, 3]^2-31892.0210169279*`#mover(mi("&Xi;"),mo("&uminus0;"))`[3, 0]^2-74414.7157012040*`#mover(mi("&Xi;"),mo("&uminus0;"))`[0, 1]^2-0.157762676533651e-4*`#mover(mi("&Xi;"),mo("&uminus0;"))`[4, 4]-2756.10058174656*`#mover(mi("&Xi;"),mo("&uminus0;"))`[4, 4]^2-0.102778321206868e-3*`#mover(mi("&Xi;"),mo("&uminus0;"))`[2, 4]-0.149609678146995e-3*`#mover(mi("&Xi;"),mo("&uminus0;"))`[3, 4]+0.355806293655016e-3*`#mover(mi("&Xi;"),mo("&uminus0;"))`[1, 4]+0.177178252748454e-4*`#mover(mi("&Xi;"),mo("&uminus0;"))`[4, 3]+0.667350112917003e-3*`#mover(mi("&Xi;"),mo("&uminus0;"))`[0, 4]-0.206048437902625e-4*`#mover(mi("&Xi;"),mo("&uminus0;"))`[2, 3]-0.216588760759278e-3*`#mover(mi("&Xi;"),mo("&uminus0;"))`[3, 3]-0.614439676933793e-4*`#mover(mi("&Xi;"),mo("&uminus0;"))`[0, 3]+0.515123982435235e-3*`#mover(mi("&Xi;"),mo("&uminus0;"))`[1, 3]+0.860362618489874e-5*`#mover(mi("&Xi;"),mo("&uminus0;"))`[4, 2]+0.208980349515847e-3*`#mover(mi("&Xi;"),mo("&uminus0;"))`[2, 2]+0.198980163517762e-3*`#mover(mi("&Xi;"),mo("&uminus0;"))`[3, 2]-0.113734486090754e-2*`#mover(mi("&Xi;"),mo("&uminus0;"))`[0, 2]-0.473239211558459e-3*`#mover(mi("&Xi;"),mo("&uminus0;"))`[1, 2]+0.505930283832792e-3*`#mover(mi("&Xi;"),mo("&uminus0;"))`[3, 1]-0.413862537960273e-4*`#mover(mi("&Xi;"),mo("&uminus0;"))`[4, 1]+0.481049771649104e-4*`#mover(mi("&Xi;"),mo("&uminus0;"))`[2, 1]+0.353837903057346e-3*`#mover(mi("&Xi;"),mo("&uminus0;"))`[3, 0]+0.143524198250105e-3*`#mover(mi("&Xi;"),mo("&uminus0;"))`[0, 1]-0.841455103438575e-3*`#mover(mi("&Xi;"),mo("&uminus0;"))`[1, 0]-0.118425461651733e-3*`#mover(mi("&Xi;"),mo("&uminus0;"))`[2, 0]-0.328716878134357e-3*`#mover(mi("&Xi;"),mo("&uminus0;"))`[0, 0])*(diff(tau[1](t), t))^2

HFloat(1.0692333981133118e-7)*(diff(tau[1](t), t))^2

(2)

``


 

Download soal970429.mw

TKtm.pdf

sai.pdf

change .pdf extentions to .m.

How to fix it?

In following loop why Maple returns m=2, where I expect 1?

restart;
X := Vector[row](2, [1, 1]):
M := 1:
for m from 1 to M do

S := X[m] :

end do:
                              
m;
                               2
 

First 6 7 8 9 10 11 12 Last Page 8 of 18