Unanswered Questions

This page lists MaplePrimes questions that have not yet received an answer

hi.how i can allocate infinite value for a parameter such as N ,which is attached below ( N := infinite) .i encounter with error.please see it and help

thanks..

 

restart; Digits := 55; a := 0; m := 1; n := 1; x[0] := 0; a := 0; h1 := proc (theta) options operator, arrow; cos(n*theta) end proc; h3 := proc (theta) options operator, arrow; cos(n*theta) end proc; h2 := proc (theta) options operator, arrow; sin(n*theta) end proc; N := infinite; `#mover(mi("z"),mo("ˆ"))` := z+z__c; z__c := (1/2)*h; `λ__c` := E__c*`υ__c`/(-`υ__c`^2+1); `μ__c` := E__c/(2*(1+`υ__c`)); `η__c` := E__c/(-`υ__c`^2+1); `λ__m` := E__m*`υ__m`/(-`υ__m`^2+1); `μ__m` := E__m/(2*(1+`υ__m`)); `η__m` := E__m/(-`υ__m`^2+1); E__m := 42.9*10^9; `υ__m` := .325; `ρ__m` := 6020; E__c := 170*10^9; `υ__c` := .25; `ρ__c` := 4640; h := 10^(-9); R := 10*h; L := 20*R; `ℓ` := 0; f := 0; `ε__r` := 0; `ε` := 8.8541878176*10^(-12)*`ε__r`; f__z := 0; `f__θ` := 0; f__x := 0; lambda := proc (`#mover(mi("z"),mo("ˆ"))`) options operator, arrow; (`λ__m`-`λ__c`)*(`#mover(mi("z"),mo("ˆ"))`/h)^N+`λ__c` end proc; mu := proc (`#mover(mi("z"),mo("ˆ"))`) options operator, arrow; (`μ__m`-`μ__c`)*(`#mover(mi("z"),mo("ˆ"))`/h)^N+`μ__c` end proc; rho := proc (`#mover(mi("z"),mo("ˆ"))`) options operator, arrow; (`ρ__m`-`ρ__c`)*(`#mover(mi("z"),mo("ˆ"))`/h)^N+`ρ__c` end proc; eta := proc (`#mover(mi("z"),mo("ˆ"))`) options operator, arrow; (`η__m`-`η__c`)*(`#mover(mi("z"),mo("ˆ"))`/h)^N+`η__c` end proc; `D__1,0` := int(eta(`#mover(mi("z"),mo("ˆ"))`), z = -z__c .. h-z__c); `D__1,1` := int(eta(`#mover(mi("z"),mo("ˆ"))`)*z, z = -z__c .. h-z__c); `D__1,2` := int(eta(`#mover(mi("z"),mo("ˆ"))`)*z^2, z = -z__c .. h-z__c); `D__3,0` := int(lambda(`#mover(mi("z"),mo("ˆ"))`), z = -z__c .. h-z__c); `D__3,1` := int(lambda(`#mover(mi("z"),mo("ˆ"))`)*z, z = -z__c .. h-z__c); `D__3,2` := int(lambda(`#mover(mi("z"),mo("ˆ"))`)*z^2, z = -z__c .. h-z__c); `D__5,0` := int(lambda(`#mover(mi("z"),mo("ˆ"))`), z = -z__c .. h-z__c); `D__5,1` := int(lambda(`#mover(mi("z"),mo("ˆ"))`)*z, z = -z__c .. h-z__c); `D__5,2` := int(lambda(`#mover(mi("z"),mo("ˆ"))`)*z^2, z = -z__c .. h-z__c); `I__1,0` := int(rho(`#mover(mi("z"),mo("ˆ"))`), z = -z__c .. h-z__c); `I__1,1` := int(rho(`#mover(mi("z"),mo("ˆ"))`)*z, z = -z__c .. h-z__c); `I__1,2` := int(rho(`#mover(mi("z"),mo("ˆ"))`)*z^2, z = -z__c .. h-z__c); with(Student[Calculus1])

[AntiderivativePlot, AntiderivativeTutor, ApproximateInt, ApproximateIntTutor, ArcLength, ArcLengthTutor, Asymptotes, Clear, CriticalPoints, CurveAnalysisTutor, DerivativePlot, DerivativeTutor, DiffTutor, ExtremePoints, FunctionAverage, FunctionAverageTutor, FunctionChart, FunctionPlot, GetMessage, GetNumProblems, GetProblem, Hint, InflectionPoints, IntTutor, Integrand, InversePlot, InverseTutor, LimitTutor, MeanValueTheorem, MeanValueTheoremTutor, NewtonQuotient, NewtonsMethod, NewtonsMethodTutor, PointInterpolation, RiemannSum, RollesTheorem, Roots, Rule, Show, ShowIncomplete, ShowSolution, ShowSteps, Summand, SurfaceOfRevolution, SurfaceOfRevolutionTutor, Tangent, TangentSecantTutor, TangentTutor, TaylorApproximation, TaylorApproximationTutor, Understand, Undo, VolumeOfRevolution, VolumeOfRevolutionTutor, WhatProblem]

(1)

NULL

 

 

infinite.mw

Tengo una figura obtenida con ScatterPlot3D a partir de una Matriz de 3 dimensiones ( X,Y,Z ). ¿ Cómo puedo obtener la función polinómica z(x,y) que reprenta la superficie que se obtiene en el ScatterPlot3D ?

Hello,

I am trying to plot 3d scattered data as a 2d scatterplot with the third dimension being displayed as colour or a line that separates the value of the two functions (for example, the higher value and lower value at that point). I attached the file. I have two functions and several parameters that are constant. Here, I want to use P[A] on the x-axis, and P[B] on the y-axis. The z dimension is the profit functions, either Profit[1] or Profit [2]. I want to show them in colors like the highest one is red and the lower one is green, or something similar.  P[A] and P[B] are probability values and P[B] is between 0 to 0.50 with 0.01 increments, while P[A] is always less than P[B]. The file is here: example_file.mw

Example;

P[A] := 0 ..P[B]-0.01

P[B] := 0 ..0.50

Anyone please help me to code this problem.Thanks,

YC

Hey

I have a simple question. 

In maple - when working with Ohm's Law.

Maple know how to calculate with e, but how can I show the result

I have calculated the following calculation:

(2e-4)/2

Maple returns the result:0.0001000000000

How do I maple show the result as 1e-4?

 

Hello all,

I am pretty new to Maple, but I am trying to understand something. I was able to find a numerical solution to a PDE in maple (with some community help, thanks guys!). I am trying to manipulate this data but am struggling with it. I thought if I could take this data to matlab it would be pretty easy for me to manipulate and do what I want. 

So my question is: How do I export my numerical solution (pds module) to matlab. Just taking the data is okay. I know you can evaluate the data at some points. 

 

I see there is "Matlab" command that converts code, it doesn't seem to like pds as an input though.

I also see an export matrix command. I guess it could be possible to create a matrix of plot data and convert it this way?

 

I had to do a change of coordinate system to solve the PDE because of boundary conditions. I'm trying to transform this data back to my regular x,y coordinate system to see if it matches some other simulations. 

Thanks in advance! And here is my file.


restart;
with(Physics):
Setup(mathematicalnotation = true):

V(Z, f);

If function ( varphi) is defined, use this one.

PDE1 := subs[inplace](x = xi*varphi(t), PDE1);
If function ( varphi) is defined, use this one.


PDE1 := subs[inplace](t = 2*vartheta*(1/omega), PDE1);


 

 

 

 

 

 

Thesis_Pde2_attempt.mw

 from galois group function's result?                                     

g[1] := (diff(a(t), t))/(t^2-1) = 1;
g[2] := (diff(a(t), t))*(diff(b(t), t)) = 1;
dsolve({eq2, eq3});
with(DynamicSystems):
sys := DiffEquation([g[1]=1, g[2]=1], inputvariable = [b(t)], outputvariable = [a(t), b(t)]):
ts := 0.1:
t_sim := 10.0:
#in_t := Sine(1, 1, 0, 0):
#in_z := Sine(1, 1, 0, 0, samplecount = round(t_sim/ts), sampletime = ts, discrete):
in_t := t:
sol := Simulate(sys, [in_t]):
p1 := plots[odeplot](sol, [[t, a(t)]], t = 0 .. t_sim, numpoints = 200, color = red):
Error, (in DEtools/convertsys) unable to convert to an explicit first-order system
Error, (in plots/odeplot) input is not a valid dsolve/numeric solution

would like to draw the graph of x^2-1

with below sys instead of x^2-1 

sys := {-(1/2)*(-x-1+sqrt(-3*x^2-2*x-3))*(diff(y(a, b), b))/x^2+(diff(y(a, b), a))*(diff(y(a, b), b)), (1/2)*(x+1+sqrt(-3*x^2-2*x-3))*(diff(y(a, b), a))/x^2+(x^2+x+1)/x^4, (1/2)*(x+1+sqrt(-3*x^2-2*x-3))*(diff(y(a, b), a))/x^2-(1/2)*(-x-1+sqrt(-3*x^2-2*x-3))*(diff(y(a, b), b))/x^2+(x^2+x+1)/x^4};
IBC:={x=1,y(a,3)=(3-1)*(3+1),y(0,b)=0,y(1,b)=0}:
pds:=pdsolve(sys,IBC,numeric,spacestep=140);
plots[display]([seq(pds:−plot(v,t=i10),i=0..5)]):

 

I have a .mpl file containing some procedures and other code.
When I open the file, everything is placed in a single execution group
(I use 1D math, worksheet mode).

Is it possible to have distinct execution groups?
For example, after each two blank lines (or other separator) in the .mpl file.

The same question when using .txt files as Maple input (in this case the code being not executed).

Thank you.

I have written the following coade in Maple:
r := 50;
l1 := 0.2742e-10;
s := I*w;
l := (-1.342110665*10^22*c^2*(Pi^4)-4.225000000*10^25*c^2*(Pi^2)+2.316990000*10^11*c1*(Pi^2)-1)/(-1.342110665*10^22*c^2*c1*(Pi^4)-7.140250000*10^43*c^2*c1*r^2*(Pi^4)+1.957856550*10^33*c^2*(Pi^4)+9.789282750*10^32*c*c1*(Pi^4)-1.690000*10^22*c*(Pi^2)-4.22500*10^21*c1*(Pi^2));
z1 := (c*l1*s^2+1)/(c*s);
z2 := l*s/(c1*l*s^2+1);
h := (z1+2*z2)*((z1+2*r)*(z1+3*z2)/(2*r)-2*z2)/z2-(1/2)*z2*(z1+2*r)*r;
f := h*(z1+3*z2)/z2-(z1+2*r)(2*r)*(z1+3*z2)+2*z2;
gain := 2*z2/f;
a := abs(gain);
d := diff(a, w);
s := subs(w = 2*pi*0.325e11, d)
Now, I have a function named "s" which I want to set to zero, and calculate the relationship between variables c & c1 in order to achieve this. How should it be done?
Thanks.

Hi,

When I execute the command

series(exp(x),x)

and then refer to the equation in a new execution group using a equation label (CTRL-L on Windows), the equation is shown in Maple 18, but in Maple 2015 I get an error message: 'Error, missing operator or ';'. Using the % instead does work for both versions.

Is this intended behaviour or a bug in Maple 2015?

Thanks,

Bart

I'm having trouble with using constrained optimization to solve a problem.

The problem is set up as:

Max: w=x1/2 y1/4

Subject to: K=x+4. K is a constant.

 

I'm not sure where to start.

map(f, foldl(`*`, 1, a, b));
foldl(`*`, 1, map(f,a), map(f,b));

map(f, foldl(`+`, 0, a, b));
foldl(`+`, 0, map(f,a), map(f,b));

i discover it can auto calculate ring homomorphism, 

if i define a function f below

factor(map(f, foldl(`*`, 1, a, b))+map(f, foldl(`*`, 1, b, c))) = map(f, foldl(`*`, 1, a, c));

how to convert this f into a function with two input parameters?

 

 from permutation group to permutation group and inverse this mapping?

how to do?

guys,i computed a tensorial expression by maple but i think i made mistake.

 

 

tensorial.mw

First 205 206 207 208 209 210 211 Last Page 207 of 367