MaplePrimes Questions


 

"I am trying to solve these two algebraic equations for A and B "

 

eq1 := -(64*A*B^2*k[1]+28*B^2*k[2]+112*A*k[1]+105*k[2])*A/(105*B)-(32*A^2*B^2*k[1]+28*A*B^2*k[2]+56*A^2*k[1]+105*A*k[2]+210*a)/(105*B) = 0

-(1/105)*(64*A*B^2*k[1]+28*B^2*k[2]+112*A*k[1]+105*k[2])*A/B-(1/105)*(32*A^2*B^2*k[1]+28*A*B^2*k[2]+56*A^2*k[1]+105*A*k[2]+210*a)/B = 0

(1)

eq2 := -(64*A^2*B*k[1]+56*A*B*k[2])*A/(105*B)+(32*A^2*B^2*k[1]+28*A*B^2*k[2]+56*A^2*k[1]+105*A*k[2]+210*a)*A/(105*B^2) = 0

-(1/105)*(64*A^2*B*k[1]+56*A*B*k[2])*A/B+(1/105)*(32*A^2*B^2*k[1]+28*A*B^2*k[2]+56*A^2*k[1]+105*A*k[2]+210*a)*A/B^2 = 0

(2)

solve({eq1, eq2}, {A, B})

{A = RootOf(192*k[1]^2*_Z^3+440*k[1]*k[2]*_Z^2+(480*a*k[1]+210*k[2]^2)*_Z+315*a*k[2]), B = (1/2)*RootOf(1536*k[1]^2*RootOf(192*k[1]^2*_Z^3+440*k[1]*k[2]*_Z^2+(480*a*k[1]+210*k[2]^2)*_Z+315*a*k[2])^2+2512*k[1]*k[2]*RootOf(192*k[1]^2*_Z^3+440*k[1]*k[2]*_Z^2+(480*a*k[1]+210*k[2]^2)*_Z+315*a*k[2])+21*_Z^2+3840*a*k[1]+105*k[2]^2)/k[2]}

(3)

``

How can I find A and B explicitly

 

 

``


 

Download solve_equattion.mw

hi

in every math software there is a page which we could find our results in tabels  as numerical output ..is there like this in maple?

Hello guys, I want to compute Einstein tensor components of Kerr metric, but it seems there are some problems with computing.

 

Thank you for your help.Kerr.mw

Greetings,

How se the f^(IV) ode problem using the Runge metho

 

restart; with(plots);
fcns := {f(eta), gta), t(a)};
N1k1 ;b :; nt 3; pr := 5; sc := 1;
eq1 := diff(f(eta), `$`(eta, 3))+(1/2)*f(eta)*(diff(f(eta), `$`(eta, 2)))+k1*((diff(f(eta), `$`(eta, 1)))*(diff(f(eta), `$`(eta, 3)))-(1/2)*f(eta)*(diff(f(eta), `$`(eta, 4)))+(1/2)*(diff(f(eta), `$`(eta, 2)))^2) = 0; eq2 := diff(t(eta), `$`(eta, 2))+pr*nb*if`ta, 1)))*(diff(g(et`$`(eta, 1)))+pr*nt*(diff(t(eta), `$`(eta, 1^2+(1/2)*f(eta)*(diff(t(eta), `$`(eta, 1))) = 0; eq3 := diff(g(eta), `$`(eta, 2))+nt*(diff(t(eta), `$`(eta, 2)))/nb+(1/2)*f(eta)*(diff(g(eta), `$`(eta, 1)))*sc/pr = 0;
bc := f(0) = 0, (D(f))(0) = 0, (D(f))(N) = 1, ((D@@2)(f))(N) = 0, t(0) = 1, t(N) = 0, g(0) = 1, g(N) = 0;
R := dsolve(eval({bc, eq1, eq2, eq3}), fcns, type = numeric);
Error, (in dsolve/numeric/bvp) system is singular at left endpoint, use midpoint method instead
p1u := odeplot(R, [eta, (D(f))(eta)], 0 .. N, numpoints = 100, labels = ["η", "f'"], linestyle = solid, color = [blue], thickness = 1, labeldirections = [horizontal, vertical], labelfont = ['TIMES', 'BOLDOBLIQUE', 16]);
Error, (in plots/odeplot) input is not a valid dsolve/numeric solution
p1u;


bvp.mw

 

Have a good day.

simplify_question.mws
Am trying to teach myself about lines and circles and inversion.  In the code below I'd like to put textt on the circles eg c1 to identify circle c1 etc.I'm more familiar with the textplot command & plottools, but want to use the draw command.  I've tried some options with the circle statement without success.
circle(c1,x^2+(y-2*R*cos(Pi/6))^2=R^2):  # 'ctext'=c1):

Is it possible to position text in a draw statement, similar to the textplot statement (that uses plot)?  

  I was amused by an idiosincracy of Maple 7.  The last line of my code uses the simplify command, yet I have had to resort to the simplification myself - (on the previous lines).   I was surprised and curious about this.  The Help section on simplify mentions several high power simplification procedures, yet fails to simplify a simple expression.  Any comments on this?

   I'm interested in learning more about circle inversion and wondered if anyone knew of some elementary books on this.  Geometry Inversion was never taught to me at school, nor university, despite it being a topic over 1000 years old.

   Thanks for your time.  Any comments, answers, gladly appreciated.      

  

restart:
# # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Test of geometry, radical axis.
# # # # # # # # # # # # # # # # # # # # # # # # # # # #
with(geometry):
with(plots):
_EnvHorizontalName := x: _EnvVerticalName := y:

R:=5:
circle(c1,x^2+(y-2*R*cos(Pi/6))^2=R^2):  # 'ctext'=c1):
circle(c2,(x-R)^2+y^2=R^2):
circle(c3,(x+R)^2+y^2=R^2):
RadicalAxis(ra12,c1,c2):
RadicalAxis(ra13,c1,c3):

printf("Colors:  c1=red c2=blue  c3=gold\n");
printf("       ra12=magenta    ra23=grey\n");
t1:=textplot([0, 1.8*R, `Circle c1`]):
draw([c1,c2, c3, ra12,ra13], axes=normal, color=[red, blue,gold, magenta,grey]);

#draw([c1,c2, c3, ra12,ra13,t1], axes=normal, color=[red, blue,gold, magenta,grey, black], printtext=true);
if AreTangent(c1,c2) then
   printf("Circles c1 and c2 are tangential, (as they all are!)\n");
end if:
testp:=Equation(ra12):
#print(whattype(testp));
printf("Equation of radical axis for c1 & c2 is %A or\n", testp);
simplify(Equation(ra12)/10);
simplify(Equation(ra12));

Warning, the name changecoords has been redefined

Colors:  c1=red c2=blue  c3=gold

       ra12=magenta    ra23=grey

Circles c1 and c2 are tangential, (as they all are!)

Equation of radical axis for c1 & c2 is 50+10*x-10*3^(1/2)*y = 0 or

5+x-sqrt(3)*y = 0

50+10*x-10*sqrt(3)*y = 0

 

 


 

Download simplify_question.mws

 

I have been computing curvature etc of a four-dimensional metric that invloves three arbitary functions using the DifferentialGeometry package. I am now intereted in whether Maple can compute the Killing vectors. I have used the code of Example 3 from the Maple help page on KillingVectors in the  Tensor subpackage of the package DifferentialGeoemtry. If I set the arbitrary functions to be constants using the' auxiliaryequations' part of the code, then Maple outputs Killing vectors, so all good so far. If I leave the three arbitary functions to be arbitrary, however, specifying only that they be nonzero (as in Example 3) Maple had not produced any output after five hours, though when I moved the cursor over the tool bars at the top of the screen it turned to an hour glass, indicating that Maple was busy. Does anyone have experience with whether I am asking too much of Maple or whether I just need to give it more time to produce answers? If the latter, how long? The Example 3 indicates Maple will consider several possibilties including the completely arbitrary option, though that example only involves one arbitary function, so having multiple arbitary functions obviously increases the complexity.

Hi, how can you compute the normal distribution value (in my case the standard normal distribution) of a value and likewise the inverse normal distribution for a given random number in Maple?

I haven't really found any way to do this easily like you can in e.g. Excel or Matlab.

For example if I have a value z = 2.7102, I can in Matlab find the standard normal distribution value as:

Φ(z) = cdf('normal',z,0,1) and inversely z = norminv(Φ(z) ,0,1)

Or in Excel: Φ(z) = normdist(z,0,1) and z = norminv(Φ(z) ,0,1)

 

How to do this in Maple?

 

Using the definition of a derivative as a limit i.e., lim h->0  f(x+h)-f(x)/h  .Find the derivative of the following functions:

a) f(x)=3x^3-2x^2+5x-7

 

how do i solve and type in maple? please help

 

Hello,

 

I’m a uni student at the moment. I just could not get the answer right. Here’s the equation. 

 

(-69/50)*sin((32/25)*x)=(4/5)*exp((-23/50)*x)

Find the smallest positive solution and correct to 10 significant figures. 

 

Looking forward to to the answers. 

Thank you!

Maple 2015

Suppose you want to plot x = Rcos(omega*t) for t = 0..4Pi/omega.

Below is the sketch of the function.  Is there a way to plot the functions using Maple's plotting syntax?

plot(R*cos(omega*t), t = 0 .. 4*Pi/omega);
Error, (in plot) expecting a real constant as range endpoint but received 4*Pi/omega
Thanks

I googled, read help and not able to find how to do this. 

I want to change the zoom in worksheet to any value I want, and not just 100%,150%,75%, etc.... which are the values that are listed in View->Zoom factor.

Is there a place one can type in the zoom value they want? Say 110% or any other number?

windows 10.

Thank you

Hi all,

For what its worth,
I want to make a graph of data.
Attached is file to show how far I got.

multiplication_table_list_to_graph.mw

 

multiplication_table_list_to_graph.pdf

 

Regards,
Matthew
 

Hello everyone,
Gretting from me. I am Md. Abubakar Siddik from Bangladesh.

I have 20 equations  and 20 variables for a system. I want to solve it numerically

Any advice ?
system_equation.mw

Thank you in advance for your cooperation. I look forward to hearing from you.

I read a string from file which contains a sequence of Maple commands, all in one string. The commands are separated by ";" in the string. I need to then evaluate all the commands in the string as if I typed them one after the other. 

Here is an example

data:="x:='x';y:='y';sol:=dsolve(diff(y(x),x)=1,y(x));"; #read from database
parse(data);

Warning, extra characters at end of parsed string
x := 'x'
 

I want the result to parse to be as if I typed

x:='x'; 
y:='y'; 
sol:=dsolve(diff(y(x),x)=1,y(x));

I looked at help in parse page, but I do not see what I need to do. It says that 

If the option 'statement' is specified, the string must consist of exactly one Maple statement (which includes expressions). The statement is parsed and evaluated, and the result is returned.
 

But I am not using the statment option. I also tried using this option, no change, same problem.

Is there a way to prase such a string? 

Thanks

 

  SALUT,

J'ai exécuté la procédure suivante, afin de tracer une courbe (Bézier), mon objectif final est de construire "à l'aide de Maple" une théière (avec des révolutions et des rotations certainement), y at-il des suggestions?

 

First 7 8 9 10 11 12 13 Last Page 9 of 1733