Items tagged with maple

After days of fruitlessly searching the help files and the Internet for a means of converting a Dataseries of strings into numeric values in Maple I changed tack and determined how to do it myself.

I was surprised there was no built in Maple function to do this. From searching the Internet I can see I am not alone.
Since there are no other solutions on the net, here is mine:

toNumeric := (y) -> map(x->parse(x),y);

This creates the function toNumeric() that accepts a DataSeries of text values and returns it converted to a Dataseries of numeric values.

thing := DataSeries(["10", "20", "30", "55.9"], 'labels' = ["a", "b", "c", "d"]);
thing := toNumeric(thing); 

dataframething := DataFrame([["cow", "sheep", "goat", "alpaca"], ["10", "20", "30", "55.9"]], rows = ["a", "b", "c", "d"]);
dataframething[2] := toNumeric(dataframething[2]);


If you want to see this in Maple, try:
 typecastdataseries-maple




 

Can anybody please tell, where I can find seminar/workshops on Maple training ?

Regards

Hi, I have this procedure (from Maple 5) but I am using it in Maple 15. My problem is this program can not run. I think there is some commond incorrect, but not sure which ones. Please help me in this problem. Thanks a lot.

cocycle.mw

NULL

Cocycle := proc (L, n) local i, j, k, h, v, u, w, C, eqns, e, f, g; v := vector(n); eqns := {}; u := vector(n); w := vector(n); C := array(antisymmetric, 1 .. n, 1 .. n, []); for i to n do for j from i+1 to n do for k from j+1 to n do for h to n do v[h] := L[i, j, h]; u[h] := L[j, k, h]; w[h] := L[k, i, h] end do; e := array(sparse, 1 .. n, [k = 1]); f := array(sparse, 1 .. n, [i = 1]); g := array(sparse, 1 .. n, [j = 1]); eqns := `union`(eqns, multiply(transpose(e), multiply(C, v)))+multiply(transpose(f), multiply(C, u))+multiply(transpose(g), multiply(C, w)) end do end do end do; print('The*cocycles*are', eqns) end proc

proc (L, n) local i, j, k, h, v, u, w, C, eqns, e, f, g; v := vector(n); eqns := {}; u := vector(n); w := vector(n); C := array(antisymmetric, 1 .. n, 1 .. n, []); for i to n do for j from i+1 to n do for k from j+1 to n do for h to n do v[h] := L[i, j, h]; u[h] := L[j, k, h]; w[h] := L[k, i, h] end do; e := array(sparse, 1 .. n, [k = 1]); f := array(sparse, 1 .. n, [i = 1]); g := array(sparse, 1 .. n, [j = 1]); eqns := `union`(eqns, multiply(transpose(e), multiply(C, v)))+multiply(transpose(f), multiply(C, u))+multiply(transpose(g), multiply(C, w)) end do end do end do; print('The*cocycles*are', eqns) end proc

(1)

NULL

NULL


Download cocycle.m

Walking into the big blue Maplesoft office on August 3rd was a bit nerve wracking. I had no idea who anyone was, what to expect, or even what I would be doing. As I sat in the front hall waiting for someone to receive me, I remember thinking, “What have I gotten myself into?”. Despite my worries on that first day, interning at Maplesoft has been a great experience! I never knew that I would be able to learn so much about programming and working in a company in such a short amount of time. Although Maple was a programming language that was foreign to me a couple weeks ago, I feel like I’m relatively well versed in it now. Trying to learn a new language in this short timespan hasn’t been easy, but I think that I picked it up quickly, even if I’ve had my fair share of frustrations.

Chaos Game example on Rosetta Code

At Maplesoft, I’ve been contributing to the Rosetta Code project by writing short programs using Maple. The Rosetta Code project is dedicated to creating programming examples for many different tasks in different programming languages. My summer project has been to create solutions using Maple for as many tasks as possible and to post these to Rosetta Code; the goal being to have the list of tasks without Maple implementation shrink with each passing day. It’s nice to feel like I’m leaving a mark in this world, even if it is in such a small corner of the internet.

Flipping Bits example on Rosetta Code/MapleCloud

This internship, of course, came with its share of challenges. During my work on the Rosetta Code project, I posted solutions for a total of 38 tasks. Some of them were easy, but some of them took days to complete. On some days, I felt like I was on top of the world. Everything I made turned out great and I knew exactly how to tackle each problem. Other days were slower. I’ve spent ages just staring at a computer monitor trying to figure out just how on earth I was going to make this machine do what I wanted it to do! The 24 Game task was particularly hard, but also very educational. Through this task, I learned about modules, a concept previously unknown to me. I’m fairly sure that the 24 Game also took me the longest, whereas the Increment a numerical string task took me no time at all. Despite it being easy, the Increment a numerical string task wasn’t particularly fun; a bit of a challenge is required for something to be entertaining, after all. My personal favourite was the Fibonacci n-step number sequences task. It was the first really challenging task I encountered, and for after which the feeling of finally completing a task that I spent so long on, of finally overcoming that mountain, was extremely satisfying. Not all challenges end in satisfaction, however. I often found myself accidentally doing something that made the window freeze. I would close the program, then cry a bit on the inside when I realized I just lost the past half an hour’s worth of unsaved work. Nevertheless, I’m glad I got to face all these obstacles because they have made me more resilient and a better programmer.

The following is the code for the Fibonacci n-step number sequences task

numSequence := proc(initValues :: Array)
	local n, i, values;
n := numelems(initValues);
values := copy(initValues);
for i from (n+1) to 15 do
values(i) := add(values[i-n..i-1]);
end do;
return values;
end proc:
 
initValues := Array([1]):
for i from 2 to 10 do
initValues(i) := add(initValues):
printf ("nacci(%d): %a\n", i, convert(numSequence(initValues), list));
end do:
printf ("lucas: %a\n", convert(numSequence(Array([2, 1])), list));

Maple was a great software to program with and a fairly straightforward language to learn. Having previously programmed in Java, I found Maple similar enough that transitioning wasn’t too difficult. In fact, every once in a while when I didn`t know what to do for a task, I would take a look at the Java example in Rosetta Code and it would point me in a direction or give me some hints. While the two languages are similar, there are still many differences. For example, I liked the fact that in Maple, lists started at an index of 1 rather than 0 and arrays could an arbitrary starting index. Although it was different from what I was used to, I found that it made many things much less confusing. Another thing I liked was that the for loop syntax was very simple. I never once had to run through in my head how many times something would loop for. There were such a wide variety of commands in Maple. There was a command for practically anything, and if you knew that it existed and how to use it, then so much power could be at your fingertips. This is where the help system came in extremely handy. With a single search you might find that the solution to the exact problem you were trying to solve already existed as a Maple command. I always had a help window open when I was using Maple.

Multiplication Tables example on Rosetta Code

Spending my summer coding at Maplesoft has been fun, sometimes challenging, but an overall rewarding experience. Through contributing to the Rosetta Code project, I’ve learned so much about computer programming, and it certainly made the 45 minute drive out to Waterloo worth it!

Yili Xu,
Maplesoft SHAD Intern

Hi guys. I am new to the Maple environment.

Was trying to do some GR calculations when the following problem arose.

restart; with(Physics);
Setup(coordinates = (X = [t, r, theta, phi]), metric = -A(r)^2*(dt^2)+B(r)^2*(dr^2)+r^2*(dtheta^2)+r^2*(sin(theta)^2)*(dphi^2));
Setup(math = true);
g_[line_element]; g_[];
Christoffel[nonzero]; Christoffel[`~mu`, alpha, beta, nonzero];
D_[mu](g_[`~alpha`, `~beta`]);
expand(D_[2](g_[`~2`, `~beta`]));
D_[2](g_[`~2`, `~2`]);

The output for the last 3 lines are:

1. 0

2. Expansion in terms of Christoffel symbols (which does equal zero on substituting various values)

3. Non-zero value.

Obviously the answer must be zero for all cases (covariant derivative of metric). So what have I missed/misunderstood here?

Regards

BuddT

I know that whattype() is used to find the basic data type of an expression. Unfortunately that information is rarely useful. How can I dig down deeper and get Maple to tell me more about the expression?

I read somewhere that there is a properties() procedure that does that but I cannot find that procedure.

Thanks.

Can Maple 17.0 work on Windows 10 Home Edition? or it can be only Windows 10 Pro Edition

I have a simple algebraic problem, but Maple can't eliminate the exp(3P) in each term. Please help.

I get the following error:

Error, (in solve) cannot solve for an unknown function with other operations in its arguments


restart

R13eqn := -2*H*Ybar3*Zbar-H*Z1-H1*Z+H1*Zbar+H4*Ybar3-H41 = 0

-2*H*Ybar3*Zbar-H*Z1-H1*Z+H1*Zbar+H4*Ybar3-H41 = 0

(1)

H := exp(3*P)*(Z+Zbar)

exp(3*P)*(Z+Zbar)

(2)

H1 := 3*P1*exp(3*P)*(Z+Zbar)+exp(3*P)*(Z1+Zbar1)

3*P1*exp(3*P)*(Z+Zbar)+exp(3*P)*(Z1+Zbar1)

(3)

H4 := H*(Z4+Zbar4)/(Z+Zbar)

exp(3*P)*(Z4+Zbar4)

(4)

H41 := ((H1*(Z4+Zbar4)+H*(Z41+Zbar41))(Z+Zbar)-H*(Z4+Zbar4)(Z1+Zbar1))/(Z+Zbar)^2

((3*P1(Z+Zbar)*(exp(3*P))(Z+Zbar)*(Z(Z+Zbar)+Zbar(Z+Zbar))+(exp(3*P))(Z+Zbar)*(Z1(Z+Zbar)+Zbar1(Z+Zbar)))*(Z4(Z+Zbar)+Zbar4(Z+Zbar))+(exp(3*P))(Z+Zbar)*(Z(Z+Zbar)+Zbar(Z+Zbar))*(Z41(Z+Zbar)+Zbar41(Z+Zbar))-exp(3*P)*(Z+Zbar)*(Z4(Z1+Zbar1)+Zbar4(Z1+Zbar1)))/(Z+Zbar)^2

(5)

simplify(R13eqn)

(((-3*Z(Z+Zbar)*P1(Z+Zbar)-3*P1(Z+Zbar)*Zbar(Z+Zbar)-Z1(Z+Zbar)-Zbar1(Z+Zbar))*Zbar4(Z+Zbar)+(-3*P1(Z+Zbar)*Z4(Z+Zbar)-Z41(Z+Zbar)-Zbar41(Z+Zbar))*Zbar(Z+Zbar)-3*P1(Z+Zbar)*Z(Z+Zbar)*Z4(Z+Zbar)+(-Z1(Z+Zbar)-Zbar1(Z+Zbar))*Z4(Z+Zbar)-Z(Z+Zbar)*(Z41(Z+Zbar)+Zbar41(Z+Zbar)))*(exp(3*P))(Z+Zbar)+exp(3*P)*(Z+Zbar)*(Zbar4(Z1+Zbar1)+Z4(Z1+Zbar1)+(3*P1-2*Ybar3)*Zbar^3+((3*P1-4*Ybar3)*Z+Zbar1)*Zbar^2+((-3*P1-2*Ybar3)*Z^2-2*Z1*Z+(Z4+Zbar4)*Ybar3)*Zbar-3*P1*Z^3+(-2*Z1-Zbar1)*Z^2+(Z4+Zbar4)*Ybar3*Z))/(Z+Zbar)^2 = 0

(6)

Zbar41 := -2*Zbar*Zbar1

-2*Zbar*Zbar1

(7)

Z41 := -2*Z1*Z

-2*Z1*Z``

(8)

Z4 := -Z^2

-Z^2

(9)

Zbar4 := -Zbar^2

-Zbar^2

(10)

simplify(R13eqn)

((3*P1(Z+Zbar)*Zbar(Z+Zbar)^3+(3*Z(Z+Zbar)*P1(Z+Zbar)+Z1(Z+Zbar)+3*Zbar1(Z+Zbar))*Zbar(Z+Zbar)^2+3*(Z(Z+Zbar)*P1(Z+Zbar)+(2/3)*Z1(Z+Zbar)+(2/3)*Zbar1(Z+Zbar))*Z(Z+Zbar)*Zbar(Z+Zbar)+3*(Z(Z+Zbar)*P1(Z+Zbar)+Z1(Z+Zbar)+(1/3)*Zbar1(Z+Zbar))*Z(Z+Zbar)^2)*(exp(3*P))(Z+Zbar)-exp(3*P)*(Z+Zbar)*(Zbar(Z1+Zbar1)^2+Z(Z1+Zbar1)^2+3*(Z+Zbar)*((P1+(1/3)*Ybar3)*Z^2+((2/3)*Zbar*Ybar3+(2/3)*Z1+(1/3)*Zbar1)*Z-Zbar*((P1-Ybar3)*Zbar+(1/3)*Zbar1))))/(Z+Zbar)^2 = 0

(11)

expand(((3*P1(Z+Zbar)*Zbar(Z+Zbar)^3+(3*Z(Z+Zbar)*P1(Z+Zbar)+Z1(Z+Zbar)+3*Zbar1(Z+Zbar))*Zbar(Z+Zbar)^2+3*(Z(Z+Zbar)*P1(Z+Zbar)+(2/3)*Z1(Z+Zbar)+(2/3)*Zbar1(Z+Zbar))*Z(Z+Zbar)*Zbar(Z+Zbar)+3*(Z(Z+Zbar)*P1(Z+Zbar)+Z1(Z+Zbar)+(1/3)*Zbar1(Z+Zbar))*Z(Z+Zbar)^2)*(exp(3*P))(Z+Zbar)-exp(3*P)*(Z+Zbar)*(Zbar(Z1+Zbar1)^2+Z(Z1+Zbar1)^2+3*(Z+Zbar)*((P1+(1/3)*Ybar3)*Z^2+((2/3)*Zbar*Ybar3+(2/3)*Z1+(1/3)*Zbar1)*Z-Zbar*((P1-Ybar3)*Zbar+(1/3)*Zbar1))))/(Z+Zbar)^2 = 0)

-3*(exp(P))^3*Ybar3*Zbar^4/(Z+Zbar)^2-2*(exp(P))^3*Z^3*Z1/(Z+Zbar)^2-3*(exp(P))^3*P1*Z^4/(Z+Zbar)^2-(exp(P))^3*Z^3*Zbar1/(Z+Zbar)^2+3*(exp(P))^3*P1*Zbar^4/(Z+Zbar)^2+(exp(P))^3*Zbar^3*Zbar1/(Z+Zbar)^2-(exp(P))^3*Z*Zbar(Z1+Zbar1)^2/(Z+Zbar)^2-(exp(P))^3*Z*Z(Z1+Zbar1)^2/(Z+Zbar)^2-(exp(P))^3*Z^4*Ybar3/(Z+Zbar)^2-(exp(P))^3*Zbar*Zbar(Z1+Zbar1)^2/(Z+Zbar)^2-(exp(P))^3*Zbar*Z(Z1+Zbar1)^2/(Z+Zbar)^2+3*P1(Z+Zbar)*(exp(3*P))(Z+Zbar)*Z(Z+Zbar)^3/(Z+Zbar)^2+3*P1(Z+Zbar)*(exp(3*P))(Z+Zbar)*Zbar(Z+Zbar)^3/(Z+Zbar)^2+3*(exp(3*P))(Z+Zbar)*Z(Z+Zbar)^2*Z1(Z+Zbar)/(Z+Zbar)^2+(exp(3*P))(Z+Zbar)*Z(Z+Zbar)^2*Zbar1(Z+Zbar)/(Z+Zbar)^2+(exp(3*P))(Z+Zbar)*Zbar(Z+Zbar)^2*Z1(Z+Zbar)/(Z+Zbar)^2+3*(exp(3*P))(Z+Zbar)*Zbar(Z+Zbar)^2*Zbar1(Z+Zbar)/(Z+Zbar)^2-4*(exp(P))^3*Ybar3*Z^3*Zbar/(Z+Zbar)^2-8*(exp(P))^3*Ybar3*Z^2*Zbar^2/(Z+Zbar)^2-8*(exp(P))^3*Ybar3*Z*Zbar^3/(Z+Zbar)^2-4*(exp(P))^3*Z^2*Z1*Zbar/(Z+Zbar)^2-2*(exp(P))^3*Z*Z1*Zbar^2/(Z+Zbar)^2-6*(exp(P))^3*P1*Z^3*Zbar/(Z+Zbar)^2+6*(exp(P))^3*P1*Z*Zbar^3/(Z+Zbar)^2-(exp(P))^3*Z^2*Zbar*Zbar1/(Z+Zbar)^2+(exp(P))^3*Z*Zbar^2*Zbar1/(Z+Zbar)^2+3*P1(Z+Zbar)*(exp(3*P))(Z+Zbar)*Z(Z+Zbar)^2*Zbar(Z+Zbar)/(Z+Zbar)^2+3*P1(Z+Zbar)*(exp(3*P))(Z+Zbar)*Z(Z+Zbar)*Zbar(Z+Zbar)^2/(Z+Zbar)^2+2*(exp(3*P))(Z+Zbar)*Z(Z+Zbar)*Zbar(Z+Zbar)*Z1(Z+Zbar)/(Z+Zbar)^2+2*(exp(3*P))(Z+Zbar)*Z(Z+Zbar)*Zbar(Z+Zbar)*Zbar1(Z+Zbar)/(Z+Zbar)^2 = 0

(12)

solve(-(exp(P))^3*Z^2*Zbar*Zbar1/(Z+Zbar)^2+(exp(P))^3*Z*Zbar^2*Zbar1/(Z+Zbar)^2-4*(exp(P))^3*Ybar3*Z^3*Zbar/(Z+Zbar)^2-8*(exp(P))^3*Ybar3*Z^2*Zbar^2/(Z+Zbar)^2-8*(exp(P))^3*Ybar3*Z*Zbar^3/(Z+Zbar)^2-4*(exp(P))^3*Z^2*Z1*Zbar/(Z+Zbar)^2-2*(exp(P))^3*Z*Z1*Zbar^2/(Z+Zbar)^2-6*(exp(P))^3*P1*Z^3*Zbar/(Z+Zbar)^2+6*(exp(P))^3*P1*Z*Zbar^3/(Z+Zbar)^2+3*P1(Z+Zbar)*(exp(3*P))(Z+Zbar)*Z(Z+Zbar)^2*Zbar(Z+Zbar)/(Z+Zbar)^2+3*P1(Z+Zbar)*(exp(3*P))(Z+Zbar)*Z(Z+Zbar)*Zbar(Z+Zbar)^2/(Z+Zbar)^2+2*(exp(3*P))(Z+Zbar)*Z(Z+Zbar)*Zbar(Z+Zbar)*Z1(Z+Zbar)/(Z+Zbar)^2+2*(exp(3*P))(Z+Zbar)*Z(Z+Zbar)*Zbar(Z+Zbar)*Zbar1(Z+Zbar)/(Z+Zbar)^2-(exp(P))^3*Z^3*Zbar1/(Z+Zbar)^2+(exp(P))^3*Zbar^3*Zbar1/(Z+Zbar)^2-(exp(P))^3*Z*Zbar(Z1+Zbar1)^2/(Z+Zbar)^2-(exp(P))^3*Z*Z(Z1+Zbar1)^2/(Z+Zbar)^2-(exp(P))^3*Z^4*Ybar3/(Z+Zbar)^2-(exp(P))^3*Zbar*Zbar(Z1+Zbar1)^2/(Z+Zbar)^2-(exp(P))^3*Zbar*Z(Z1+Zbar1)^2/(Z+Zbar)^2+(exp(3*P))(Z+Zbar)*Z(Z+Zbar)^2*Zbar1(Z+Zbar)/(Z+Zbar)^2+(exp(3*P))(Z+Zbar)*Zbar(Z+Zbar)^2*Z1(Z+Zbar)/(Z+Zbar)^2-3*(exp(P))^3*Ybar3*Zbar^4/(Z+Zbar)^2-2*(exp(P))^3*Z^3*Z1/(Z+Zbar)^2-3*(exp(P))^3*P1*Z^4/(Z+Zbar)^2+3*(exp(P))^3*P1*Zbar^4/(Z+Zbar)^2+3*P1(Z+Zbar)*(exp(3*P))(Z+Zbar)*Z(Z+Zbar)^3/(Z+Zbar)^2+3*P1(Z+Zbar)*(exp(3*P))(Z+Zbar)*Zbar(Z+Zbar)^3/(Z+Zbar)^2+3*(exp(3*P))(Z+Zbar)*Z(Z+Zbar)^2*Z1(Z+Zbar)/(Z+Zbar)^2+3*(exp(3*P))(Z+Zbar)*Zbar(Z+Zbar)^2*Zbar1(Z+Zbar)/(Z+Zbar)^2 = 0, P1)

Error, (in solve) cannot solve for an unknown function with other operations in its arguments

 

NULL

``


Download Help_Maple_divide_an_Exp_on_both_sides.mwHelp_Maple_divide_an_Exp_on_both_sides.mw

Hi
I want to solve this integration simbolic:


I use this cammand :

But Maple return this:

Would you Please Help me , thanks

I have been in touch with Maplesoft trying to get this version for windows (they are not able to create a download for this). I have codes that used to run in Maple 6 but not in Maple 7 or later. (Maple V should work as well).

If you any of have this version, please let me know if I can try it out for a limited time (I have always had licenses from Maple V Release 3 or 4).

I am not able to post those codes for obvious confidentiality reasons.

 

Thanks

 

(I tried my code in Maple 7, but no use). 


 Hello,every one,i want to solve system of equations but i recieve an error ,how can i find the coeffecients c1,c2,c3,c4?thank.

``

restart

``

``

A := 45*x*c4+72*c3 = 0:

 

B := 56*c2*c4+28*c3^2 = 0:

C := M^2*(-x^5*c4-x^4*c3-x^3*c2-x^2*c1+c1+c2+c3+c4+1)^n*c4+42*beta*c1*c4+42*beta*c2*c3 = 0:

E := M^2*(-x^5*c4-x^4*c3-x^3*c2-x^2*c1+c1+c2+c3+c4+1)^n*c3+30*beta*c1*c3+15*beta*c2 = 0:

F := M^2*(-x^5*c4-x^4*c3-x^3*c2-x^2*c1+c1+c2+c3+c4+1)^n*c2+20*beta*c1*c2-20*beta*c1*c4-20*beta*c2*c4-20*beta*c3*c4-20*beta*c4^2-20*beta*c4-20*c4 = 0:

G := M^2*(-x^5*c4-x^4*c3-x^3*c2-x^2*c1+c1+c2+c3+c4+1)^n*c1+6*beta*c1^2-12*beta*c1*c3-12*beta*c2*c3-12*beta*c3^2-12*beta*c3*c4-12*beta*c3-12*c3 = 0:

``

beta*c1+beta*c2^2+beta*c2*c3+beta*c2*c4+beta*c2+c2 = 0:

M^2*(-x^5*c4-x^4*c3-x^3*c2-x^2*c1+c1+c2+c3+c4+1)^n = 0:

with(SolveTools):

``

PolynomialSystem({{45*c4*x+72*c3 = 0}, {30*beta*c1*c3+15*beta*c2 = 0}, {42*beta*c1*c4+42*beta*c2*c3 = 0}, {20*beta*c1*c2-20*beta*c1*c4-20*beta*c2*c4-20*beta*c3*c4-20*beta*c4^2-20*beta*c4-20*c4 = 0}, {6*beta*c1^2-12*beta*c1*c3-12*beta*c2*c3-12*beta*c3^2-12*beta*c3*c4-12*beta*c3-12*c3 = 0}}, {c1, c2, c3, c4}, {beta = 2, x = 1/5})

Error, invalid input: too many and/or wrong type of arguments passed to SolveTools:-PolynomialSystem; first unused argument is {beta = 2, x = 1/5}

 

NULL

``

``

``

``

``

``

``

``

``

``

``

``

``

``

``

``

 

Download Numerical.mw

HI.please help me for solve differenrtial equation with finite difference method not dsolve numeric solver in maple

thanks

FDM2.mw

L := 1/50000000; -1; eta := 1; -1; PDE[111] := 7.65692307692309*10^(-8)*(diff(f1(x), x, x, x, x))-1.56784615384616*10^12*(diff(f1(x), x, x))+220.592307692308*(diff(f2(x), x, x, x))-3.52947692307693*10^21*(diff(f2(x), x))+43.7538461538462*(diff(f3(x), x, x, x))+4.81292307692309*10^20*(diff(f3(x), x))+6.50473846153848*10^30*f1(x)-7.90000000000000*10^(-8)*eta*f1(x)

0.7656923077e-7*(diff(diff(diff(diff(f1(x), x), x), x), x))-0.1567846154e13*(diff(diff(f1(x), x), x))+220.592307692308*(diff(diff(diff(f2(x), x), x), x))-0.3529476923e22*(diff(f2(x), x))+43.7538461538462*(diff(diff(diff(f3(x), x), x), x))+0.4812923077e21*(diff(f3(x), x))+0.6504738462e31*f1(x)

(1)

PDE[222] := 2.14211538461539*10^(-8)*(diff(f2(x), x, x, x, x))-1.64988461538462*10^12*(diff(f2(x), x, x))+7.90486153846156*10^30*f2(x)-220.592307692308*(diff(f1(x), x, x, x))+3.52947692307693*10^21*(diff(f1(x), x))-5.94323076923080*10^11*(diff(f3(x), x, x))+5.13378461538463*10^30*f3(x)-7.90000000000000*10^(-8)*eta*f2(x)

0.2142115385e-7*(diff(diff(diff(diff(f2(x), x), x), x), x))-0.1649884615e13*(diff(diff(f2(x), x), x))+0.7904861538e31*f2(x)-220.592307692308*(diff(diff(diff(f1(x), x), x), x))+0.3529476923e22*(diff(f1(x), x))-0.5943230769e12*(diff(diff(f3(x), x), x))+0.5133784615e31*f3(x)

(2)

PDE[333] := -6.38076923076924*10^(-31)*(diff(f3(x), x, x, x, x, x, x))+9.66537046153848*10^(-8)*(diff(f3(x), x, x, x, x))-3.10154753538461*10^12*(diff(f3(x), x, x))-43.7538461538462*(diff(f1(x), x, x, x))-4.81292307692309*10^20*(diff(f1(x), x))-5.94323076923080*10^11*(diff(f2(x), x, x))+5.13378461538463*10^30*f2(x)+2.29989058707693*10^31*f3(x)-7.90105333333333*10^(-8)*omega^2*f3(x)+6.58333333333333*10^(-31)*eta*(diff(f3(x), x, x))

-0.6380769231e-30*(diff(diff(diff(diff(diff(diff(f3(x), x), x), x), x), x), x))+0.9665370462e-7*(diff(diff(diff(diff(f3(x), x), x), x), x))-0.3101547535e13*(diff(diff(f3(x), x), x))-43.7538461538462*(diff(diff(diff(f1(x), x), x), x))-0.4812923077e21*(diff(f1(x), x))-0.5943230769e12*(diff(diff(f2(x), x), x))+0.5133784615e31*f2(x)+0.2299890587e32*f3(x)-0.7901053333e-7*omega^2*f3(x)

(3)

bcs := {f1(0) = 0, f1(L) = 0, f2(0) = 0, f2(L) = 0, f3(0) = 0, f3(L) = 0, ((D@@1)(f1))(0) = 0, ((D@@1)(f1))(L) = 0, ((D@@1)(f2))(0) = 0, ((D@@1)(f2))(L) = 0, ((D@@1)(f3))(0) = 0, ((D@@1)(f3))(L) = 0, ((D@@2)(f3))(0) = 0, ((D@@2)(f3))(L) = 0}

{f1(0) = 0, f1(1/50000000) = 0, f2(0) = 0, f2(1/50000000) = 0, f3(0) = 0, f3(1/50000000) = 0, (D(f1))(0) = 0, (D(f1))(1/50000000) = 0, (D(f2))(0) = 0, (D(f2))(1/50000000) = 0, (D(f3))(0) = 0, (D(f3))(1/50000000) = 0, ((D@@2)(f3))(0) = 0, ((D@@2)(f3))(1/50000000) = 0}

(4)

``


Download FDM2.mw

Hi,

I have attached a Maple file. My problem is that the solve for the simultaneous equation does not give me understandable results. I even simplified my equations by saying some parameters are zero although my final goal is to find an expression for a and varphi. Any idea how to solve this analytically? I know how to do it numerically. I need an analytical expression.

Thanks,

Baharm31

 

I have Maple output that extends page width. I can of course see the entire output when I scroll to the right. But since I want to make a screenshot of the output, I need to have the output on one page. Is there a possibility to have the output printed on one page, not extending page width?

Any comments would be greatly appreciated!

 

i got this error in window 8 in surface 2  then follow this post and install again still error

https://www.maplesoft.com/support/faqs/detail.aspx?sid=139020

then follow

http://www.maplesoft.com/support/faqs/detail.aspx?sid=32607

then follow and install again same error

http://www.maplesoft.com/support/faqs/detail.aspx?sid=32631

and install again same eror

then i add option -f c:\Program File (x86)\MapleXX in cmd and then no error any more 

but no install succeed 

where it go, it still not install

then i try again, there is no room enough to install,  hard disk do not have enough space, then i go to c:\Windows\Temp, after deleted file in it, still not enough space

 

i find 

https://www.maplesoft.com/support/install/maple15_install.html

but template do not state how to activate later

how to write this template and how to clear the temp file created by previous failed cmd install method

1 2 3 4 5 6 7 Last Page 2 of 273