MaplePrimes Questions

How we can get matrix M with the help of loop?

Hello

Im solving a problem. When i use solve command maple dont give me whole of amswers it just give solve the obvious problem that is zero. what i should do to it give all of the answers not just zero?

Hi guys,

I'm very new to Maple and I'm trying to get  a 'diagonalisable' matrix set up.

It will help for me to attach what I currntly have for this to make sense:

What I currently have is a way of setting up a 5x5 matrix where it inserts a value at every instance where i=j, i=j+3 and i=j+6.

Currently I can only make this work for value from 1 to x and, for this to work, I basically need to make up a matrix that goes from -x to x

i.e currently I have x = 1 though 5 (5x5) and I need to set it up for x= -5 through 5 (11x11)

Every time I try and get the negative elements and 0 in there it tells me that I can't do it.

Is there any way to do this is Maple and am I going the wrong way about it?

 

Thanks very much for your time!

I'm using Maple on a compute server (via Putty from my computer which has windows system). It is an only-text mode server so it is a black screen and text and no menu bar to choose file and then save by clicking etc. You only can write commands and press Enter.

The IT section suggested to use writeto("filename.txt"), but I can't see any file on my drive, I used writeto("\drvename\filename.txt"), but still nothing.

Thanks to @acer@Joe Riel and the IT section. The problem now is solved. It was about the way that I was writing the directory path. I had to add something before the "drivename" in my case. Plus that it is a Unix path, so I should use / not \.

Please check the value of T[1] ?

Hello, i am experiencing some problems when trying to open the maple 2018 software*
I have tried unistalling and download it again.
I have tried to search for sollution but there is very ittle intel
When i open Maple 2018 it just lingeres on the start up (pic below) and just disappears after 10 seconds

Can someone please help i have a very important examination upcoming

how we can get matrix of p[2],p[0] and p[1] when p[2]=1,p[0]=1 and  p[1]=-x and x[0]=-1,x[1]=-2/3 ,x[3]=0 when the general matrices of p are given below.....and answer should be p[2]=p[0]= identity matrix and p[1]= only diagonal values are 1,2/3,1/3,0..

Diff.(u(x,t), t$alpha) = 1/2. x^2. Diff(u(x,t),x$2), 0 <x <1, t >0, alpha =1.5  or  1.75

Bcs: u(0,t) = 0, u(1,t) = 1 + sinh t,

Ics: u(x,0) = x, ut(x,0) = x^2 

restart;
F0:=proc(sigma__xx,N)
local  x,y,Fx,Fy,:
assume (w,real,w>0):assume (h,real,h>0):

for n from 0 by 2 to N do Fx:=integrate(sigma__xx*cos(w*Zeta*h),Zeta=0..infinity):
end do;
for n from 1 by 2 to N do Fx:=integrate(sigma__xx*sin(w*Zeta*h),Zeta=0..infinity):
end do;
return [Fx]:
end proc;

sigma__xx := -(sqrt(Zeta^2*h^2+h^2)^(-n+2)*cos(n*arctan(h, Zeta*h))*n^2+sqrt(Zeta^2*h^2+h^2)^(-n+2)*cos(n*arctan(h, Zeta*h))*n-2*sqrt(Zeta^2*h^2+h^2)^(-n+2)*cos(n*arctan(h, Zeta*h)))*Zeta^2*h^2/(Zeta^2*h^2+h^2)^2+(sqrt(Zeta^2*h^2+h^2)^(-n+2)*cos(n*arctan(h, Zeta*h))*n^2-3*sqrt(Zeta^2*h^2+h^2)^(-n+2)*cos(n*arctan(h, Zeta*h))*n;

F0(sigma__xx,N);

In Maple we can assign single named variables to values.  I was just wondering if it would be worthwhile if Maple could be set up to work with a multivariable assignment.  Not sure if my wording is understandable but hopefully someone can understand my point, or deter me from even thinking that way. 

Would it ever help in calculations in Maple if we were to make an assignment something like this :

v2:= a2 + b2

or

a * b := 3*x + 5*y2

Haven't looked into it too hard, I'd like to know if there might be a situation where this type of assignment would be helpful.  I mean, does it make sense to do this kind of thing.  I wonder if there is a situation where this type of thing is useful, or maybe it's just impossible to work right anyway.  Maybe it's already been tried?  Thoughts?

I am using external library function but it shows following error. please help.

 

dll.mw

Hi

i want solve under equations but maple cannot. what i should do? please help

Hi,

I have a numeric method for solving differential equations. You can find the Maple code.

 numeric_method.mw

 Question: In the method, we have 10^(-6) decimal error. How to quickly find the which decimal error by Maple? What are your suggestions? 

Hi:
 I use the following codes:
with(GraphTheory):
Graphs_data3:=[NonIsomorphicGraphs(6,restrictto =[connected], output
= graphs, outputform =graph)]:
Diameter2_select:=select[flatten](t->Diameter(t)=2,Graphs_data3):
map(DrawGraph,Diameter2_select);
nops(Diameter2_select);

Since  59 graphs are not many, so,I want to display  it. But the list show that
[Length of output exceeds limit of 1000000]`
How do I do?

If I use DrawGraph(Diameter2_select), the output is to large, and it is  not convenient to print it out .

 

i have a assignment problem to optimize with 1200 variables and almost 1000 constraints. but maple couldnt solve it. anyone who can help me is welcome

or may i try another app?

thanks

this is the my model
tam2.mw

 

restart;

 

 

we:=[1,2,8,9,15,16,22,23,29,30];

(1)

wd:=[3,4,5,6,7,10,11,12,13,14,17,18,19,20,21,24,25,26,27,28];

(2)

#printlevel :=3;

for j from 1 to 30 do
#her gündüz vardiyasında en az 4 hemşire bulunsun
a[j]:=sum(x[i][j][1], i=1..20)>=4:
end do;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

(3)

A := [seq(a[j],j=1..30)];

(4)

#her gece vardiyasında en az 4 hemşire bulunsun
for j from 1 to 30 do
b[j]:=sum(x[i][j][2], i=1..20)>=4:
end do;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

(5)

 

B := [seq(b[j],j=1..30)];

(6)

#her hemşire ayda en az 4 hafta içi gündüz vardiyasında çalışsın
for i from 1 to 20 do
c[i]:=sum(x[i][wd[k]][1], k=1..20)>=4:
end do;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

(7)

C := [seq(c[i],i=1..20)];

(8)

#her hemşire ayda en az 4 hafta içi gece vardiyasında çalışsın
for i from 1 to 20 do
d[i]:=sum(x[i][wd[k]][2], k=1..20)>=4:
end do;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

(9)

dd:= [seq(d[i],i=1..20)];

(10)

#her hemşire ayda en az 2 hafta sonu gündüz vardiyasında çalışsın
for i from 1 to 20 do
e[i]:=sum(x[i][we[k]][1], k=1..10)>=2;
end do;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

(11)

E:= [seq(e[i],i=1..20)];

(12)

#her hemşire ayda en az 2 hafta sonu gece vardiyasında çalışsın
for i from 1 to 20 do
f[i]:=sum(x[i][we[k]][2], k=1..10)>=2;
end do;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

(13)

F:= [seq(f[i],i=1..20)];

(14)

#gece vardiyasında çalışan hemşire ertesi gündüz ve gece vardiyalarında izinlidir
for i from 1 to 20 do
for j from 1 to 29 do
g[i][j]:=2*x[i][j][2]+x[i][j+1][1]+x[i][j+1][2]<=2
end do;
end do;

for i from 1 to 20 do
g[i] := seq(g[i][j],j=1..29)
end do;

g:= [seq(g[i],i=1..20)];

with(Optimization);

Minimize( sum(t[m], m=1..20),{A[],B[],C[],dd[],E[],F[],g[]}, assume = binary );


 

Download tam2.mw

 

First 393 394 395 396 397 398 399 Last Page 395 of 2133