I'm trying to call a C function which returns an array. The example on the help page http://www.maplesoft.com/support/help/maple/view.aspx?path=examples/ExternalCalling is to pass in an array with known dimensions, which will be updated in the C function, but I wonder if this is the only way to do it. For example if I have an array of unknown dimensions beforehand, what is the best approach to return this array?

Thanks!

 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.

Download Numerical.mw

Dear MapleSoft,

Would it be possible you once design a MapleSim webinar for users with more emphasis on Modelica (language, examples, etc.), on how to build more complex custom components, not just a simple DC motor? I think this would be very useful and could extend / enhance the use of MapleSime even more.

Tx in advance,

best regards

Andras

you write:

Hello every one,please help me for plotting this equation(T).L=1,t=10,a=0.1,x=0..1

Table_1_for_example_1.mw

I am try to find root by using fsolve. But I am not get solution.

Please help me to solve this problem?

I have been attached the program above.

Thank You.

Best Regards.

Velmurugan G

n := 5:
z1 := exp(2*3.14*I*k1/n)*cosh(z)^(2/n);
z2 := exp(2*3.14*I*k2/n)*sinh(z)^(2/n);
xx := Re(z1);
yy := Re(z2);
uu := cos(alpha)*Im(z1) + sin(alpha)*Im(z2);

use above example of calabi yau equation, do not know which variables z, k1, k2 are u and v, then i assume k1 and k2 are u and v respectively,

E := diff(xx,k1).diff(xx,k1);
F := diff(xx,k1).diff(xx,k2);
G := diff(xx,k2).diff(xx,k2);

then calculate metric
diff(E, k2);
F
diff(G, k1);

which function can input these metric diff(E,k2), F, diff(G,k1) to prove calabi yau equation's metric's ricci is flat

hi .i have a problem with dsolve this equation.please help me for removing error

"initial Newton iteration is not converging"

thanks..

SGT-FDM.mw

Download SGT-FDM.mw

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

thanks

FDM2.mw

Download FDM2.mw

hi

i have a problem with convert mathematica code in to maple one

i attached maple file .some line have error.please help me for remove error

thanks

fdm.mw

fdm.pdf

hello.

i have two problem in maple file, that is attached..

one of them is RootOf...note that i suppose that [varepsilon := -2.3650203724313] for i can going on following calculation

and second is  Float(undefined) in calculation integral

please help me

thanks

(m=1_n=6)2.mw

from mathematica,

n = 5;
CalabiYau[z_, k1_, k2_] := Module[{z1 = Exp[2Pi I k1/n]Cosh[z]^(2/n), z2 = Exp[2Pi I k2/n]Sinh[z]^(2/n)}, {Re[z1], Re[z2], Cos[alpha]Im[z1] + Sin[alpha]Im[z2]}];
Do[alpha = (0.25 + t)Pi; Show[Graphics3D[Table[ParametricPlot3D[CalabiYau[x + I y, k1, k2], {x, -1, 1}, {y, 0, Pi/2}, DisplayFunction -> Identity, Compiled ->False][[1]], {k1, 0, n - 1}, {k2, 0, n - 1}], PlotRange -> 1.5{{-1, 1}, {-1, 1}, {-1, 1}}, ViewPoint -> {1, 1, 0}]], {t, 0, 1, 0.1}];

n := 5;

z1 := exp(2*3.14*I*k1/n)*cosh(z)^(2/n);
z2 := exp(2*3.14*I*k2/n)*sinh(z)^(2/n);

alpha = (0.25 + t)Pi;

xx := Re(z1);
yy := Re(z2);
uu := cos(alpha)*Im(z1) + sin(alpha)*Im(z2);

where k1, k2, alpha are variables

print([xx,yy,uu]);

i find algcurve has implicitize

how to use this implicitize to find 3d surface?

is there any other method to find?

i searched groebner basis can do this, but in mathematica is different from maple example

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

hello friend

please run this code and resend result to me.

thank you.

restart;
with(LinearAlgebra); with(plots);
c[1] := 0; c[2] := 1/2;
a[2, 1] := 1/8;
b[-1] := -1/3; b[1] := 2/3; b[2] := 5/6;
bb[2] := 5/12;
s := 2;
e[1] := Matrix(s+1, 1); e[2] := Matrix(s+1, 1); e[3] := Matrix(s+1, 1); e[4] := Matrix(s+1, 1);
c[0] := 0;
for ii to s+1 do e[1][ii, 1] := 1; e[2][ii, 1] := -1; e[3][ii, 1] := c[ii-1] end do;
e[1][1, 1] := 0; e[2][2, 1] := 0; e[4] := -e[3];
A := Matrix(s+1, s+1);
for i from 3 to s+1 do for j from 2 to i-1 do A[i, j] := a[i-1, j-1] end do; A[i, 1] := A[i, 2] end do;
Id := Matrix(s+1, s+1, shape = identity);
N := Matrix(s+1, s+1);
for i to s+1 do for j to s+1 do N[i, j] := -H*A[i, j]+Id[i, j] end do end do;
Bb := Matrix(s+1, 1);
for i from 3 to s+1 do Bb[i, 1] := bb[i-1] end do;
B := Matrix(s+1, 1);
for i from 2 to s+1 do B[i, 1] := b[i-1] end do; B[1, 1] := b[-1];
Z := Multiply(Transpose(Bb), 1/N);
for i to s+1 do Z[1, i] := H*Z[1, i] end do;
Q := Multiply(Transpose(B), 1/N);
for i to s+1 do Q[1, i] := H*Q[1, i] end do;
Dh := proc (H) options operator, arrow; Matrix([[1+Multiply(Z, e[1]), Multiply(Z, e[2]), 3/2+Multiply(Z, e[3]), -1/2+Multiply(Z, e[4])], [1, 0, 0, 0], [Multiply(Q, e[1]), Multiply(Q, e[2]), 1+Multiply(Q, e[3]), Multiply(Q, e[4])], [0, 0, 1, 0]]) end proc;
k := Matrix(4, 4);
for i to 4 do for j to 4 do if i = j then k[i, j] := ep-Dh(H)[i, j] else k[i, j] := -Dh(H)[i, j] end if end do end do;
sp := unapply(collect(Determinant(k), ep), H, ep);
sol := solve(sp(H, ep), ep, explicit);
sol := simplify(map(allvalues, {sol}));
l := numelems(sol);
inequal({evalc(abs(subs(H = x+I*y, sol[1]))) <= 1, evalc(abs(subs(H = x+I*y, sol[2]))) <= 1, evalc(abs(subs(H = x+I*y, sol[3]))) <= 1, evalc(abs(subs(H = x+I*y, sol[4]))) <= 1}, x = -3 .. 3, y = -3 .. 3, color = "Nautical 1");