Hi there, this is my first post in this forum. I hope you can help me with my problem :)

I've created a little program to solve a problem for my class. This is the first time, I wrote a program with Maple, so please don't laugh. 

I've posted the Maple code below:

restart; randomize():
with(plots): with(plottools): with(LinearAlgebra): with(Statistics): with(MTM):

s:={1=2, 3=2}:

Realisierung:=proc(np,volfrac)

local m, h, adresses, rndmAdrs, omega: omega:=Vector[row](np,s);

adresses:=Vector(np-nops(s));

h:=1;
for m from 1 to np do
if(omega[m]=0) then
adresses[h]:=m;
h:=h+1;
end if
od;

randomize():
rndmAdrs:=Shuffle(adresses);

for m from 1 to volfrac*np do
omega[rndmAdrs[m]]:=1
od:

for m from 1 to np -(volfrac*np+nops(s)) do
omega[rndmAdrs[m+int8(volfrac*np)]]:=2
od:

omega;

end:

RealMatrix:=proc(np,nr,volfrac)

local m, alle:

alle:=Matrix(nr,np); for m from 1 to nr do

randomize();

alle[m]:=Realisierung(np,volfrac); od;

alle;

end:

RealMatrix(5,5,0.4);

I used the Shuffle function from Statistics-package to randomly permutate the components in the Vector adresses. Which works fine. By setting Randomize(); I get randomly results vor this permutation, when I execute the whole worksheet.

But when the "Realisierung" procedure is called in the for loop of the "RealMatrix" procedure, always the same Permutation is calculated.

This leads to the fact, that every row in my matrix looks the same.
Like in the example

2 1 2 2 1
2 1 2 2 1
2 1 2 2 1
2 1 2 2 1
2 1 2 2 1

but the lines should be randmly like

2 1 2 2 1
2 2 2 1 1
2 1 2 1 2
2 1 2 2 1
.....

Obvioulsy the problem is in the randomize()-command. I tried to place it directly after "restart" and directly before the Shuffling is executed.
But I had no succes. 

Maybe one of you can help me?
Would be great!
Thanks

How to avoid the error described in the title

Here we have an application to understand how algebraic expressions, calculating degrees relative abosulutos polynomial operations and introduction to work.Here we have an application to understand how algebraic expressions, calculating degrees relative abosulutos polynomial operations and introduction to work.

Grados_de_Polinomios.mw

(in spanish)

Atte.

L.AraujoC.

Hi All,

I want to solve for G, but cant seem to figure it out. Can anyone tell me what am I missing or doing wrong?

SSD:= ((155/9)*2.5)+((155/9)^2/(2*9.807*0.346));
Lc:= 2*SSD-(2*(sqrt(1.08)+sqrt(0.6))^2)/(G+0.04);
Ls:= 2*SSD-(2*(0.6+SSD*tan(Pi/180)))/(G);
Lcon:= 202-Lc-Ls;
Eq:= (G-0.043)(Lc/2)+(-G)(Ls/2)+G*Lcon-0.043*Lc=14;

fsolve(Eq);

thank you

Hi everyone!

I'm curious how to obtain in Maple 2015 same result as in Maple 18.

Here is my code:

restart:

L0 := ImportMatrix("C:\\Test.txt", source = delimited, delimiter = "\t", datatype = float[8]):

plot(L0[() .. (), 1], L0[() .. (), 2], axes = box, size = [600, 320]);

This is result which I get by Maple 18:

This is result which I get by Maple 2015:

My Test file:Test.txt

bags.mw

$15 is spread among four different bags. How  can you can make any whole number of dollars from $1 to $15 by selecting some of these bags of money, without taking any money out of the bags.
 
How is the money distributed ?

One bag must have $1 in it.
To be able to make $2, and each bag is different, so one bag must have $2 in it.
 can now make $3, but can’t make $4, so the third bag must have $4 in it.
With $1, $2 and $4 in three bags, can make every total up to $7. The last bag has the rest of his money in it – $8.

so the answer is $[1,2,4,8]

wondering how to do this with maple procedure. unsurprisingly my code doesn't work

I want to increase the stack limit. but i can not raise it above the hard limit....

so i wonder whether there is a way to increase the hard limit, or at least tell me how much is it?

Why nothing changes?

Could someone help me understand what is happening to this procedure. When I run it, I get the subject error. Thanks.

game := proc()
  local player1, player2, roll;
  roll := rand( 1..6 );
  player1 := roll():
  player2 := roll(2):
  if player1>player2 then "A wins"
  elif player1=player2 then "Tie"
  else "B wins"
  end if;
end proc:

Derive the orbit of the Moon around the Earth by doing a Verlet algorith of Molecular Dynamics simulation. Use one hour for your step τ. Place the stationary Earth at the origin of the Cartesian system. For initial conditions, use the position and the speed of the Moon when it is at its apogee (furthest from Earth). Plot the orbit.

Dear friends.

I need a simple approach for reading a specified line of a text file.

FileTools[Text] module allows to count the lines. By sequential reading of lines it's possible to reach any position in the file. But for large file this takes a lot of time.

FileTools[Position] allows to set/get position in the file, but the position is counted in bytes.

Are there any workarounds for the problem or the use of Database Package is more preferable?

Hello,

please help check what's wrong with this code. I need the analytic solution and convert to Bessel but return error. Here is the worksheet ID_1.mw

Best regards.

Hi,

this code not answer:

> whit*evalf; tx := evalf((t1+t2)*(1/2));
> t1 := 326*40; t2 := 327*40;
> y1, y2 := eval([y1, y2], Ns(t1), Ns(t2));
>while (t1 < tx) and (tx < t2) do:
yx := rhs(Ns(tx)[c2]):
if yx > 0 then
y2 := yx: t2 := tx:
else
y1 := yx: t1 := tx:
fi;
od;
>Tx = evalf(tx);
> Hx := floor((1/3600)*tx):
> Mx := floor((tx-3600*Hx)*(1/60)):
> Sx := tx-3600*Hx-60*Mx:
> Hx, Mx, Sx;
> XS := [seq(X[i], i = 0 .. 328)]: YS := [seq(Y[i], i = 0 .. 328)]:
> VxS := [seq(Vx[i], i = 0 .. 328)]: VyS := [seq(Vy[i], i = 0 .. 328)]:
> save(G,Mz,Xs,VxS,VyS, 'orbit.sav'):

 can you help me?

This might seem easy but i am a total beginner in Maple and i really need to know how to do this. If i have an expression like this:

X^2 + 3*y + 3*z + X^7

where (y) and (z) are constants of unknown values. I need to integrate the expression over an interval for example (from 1 to 10) so that the answer would still be in terms of (y) and (z).

Would anyone please help me and give me the right expression for writing this on Maple?

Thanks in advance.

(a) Show that if {an} ∞ n=1 is Cauchy then {a 2 n} ∞ n=1 is also Cauchy. (b) Give an example of a Cauchy sequence {a 2 n} ∞ n=1 such that {an} ∞ n=1 is not Cauchy