In geom3d, i have equation a plane. Now i want to get two points A and B in the plane P and write the equation of the line which passing two point A, B. 

restart:
with(geom3d):
plane(P, 2*x + 2*y -z + 4=0,[x,y,z]):

f := (a,b,c) -> eval(lhs(Equation(P)), [x=a,y=b,z=c]): 

T:=f(-1,2, a):
eq:=solve(T=0,a): coordinates(point(A,-1,2,eq)):

We have 1^2 + 2^2 +2^2 = 3^2; 2^2 + 3^2 + 6^2 = 7^2; 2^2 + 10^2 +11^2 = 15^2. Please write for me a command solve the equation a^2 + b^2 + c^2 = d^2, where, a, b, c, d are integer numbers, and d <=100. Thank you very much.

Hi, whenever I write something like A[m](i,j):=0, the clarify expression box will pop out. It will ask me to select a meaning for the expression.

All the expressions in my worksheet is "remember table assignment". Instead of pressing it so many times, is there a way to set it to the particular worksheet so that it will remember the answer everytime I run the worksheet?

Please advice. Thanks.

Dear everyone,

  Hello,

  I have a question about how to get the power 'n' in an expression "(x+y)^n". For instance, I have a Maple code

******

eq1:=4*x^n*y^m+(x+y)^n+x^3;

f1:=map(t -> `if`(match(t = c*y^d, y, 's'), subs(s,d), NULL),
      convert(eq1, list));
f2:=map(t -> `if`(match(t = c*x^d, x, 's'), subs(s,d), NULL),
      convert(eq1, list));

It will be possible to manipulate this behavior with options "dsolve / event" or "dsolve / Error Control"?

> restart;
> Digits;                                10
> ode := sin(x(t))*(diff(x(t), t, t))+x(t)^3 = t*sin(x(t));

> ics := x(0) = 0, (D(x))(0) = 0;

> s := 250;

Hi Guys,

I was wondering if there is a way to get data from an array solution.

The system of odes, I am trying to solve is 

eq2:= diff(f(eta),`$`(eta,3))+f(eta)*diff(f(eta),`$`(eta,2))+beta*(1-diff(f(eta),eta)^2) = 0;

eq2 := diff(theta(eta),`$`(eta,2))+pr(f(eta)+(beta-1)*

eta*diff(f(eta),eta))*diff(theta(eta),eta) = 0;

bcs:=f(0)=gama,D(f)(0)=lambda,D(f)(N)=1,theta(0)=0,theta(N)=1:

gama:=2;lambda:=1:pr:=10:N:=10:beta:=3:

Dear Maple Users

What am i doing wrong?

I would like to draw some areas between curves. I tried to use ?plots/implicitplot but I often need to use gridrefine option which consumes so much memory. When I want to draw e.g. the area between f and g:

f := x-> piecewise(x < 5, 2, x-3):
g := x-> piecewise(x < 4, x, 4):

I can do:

p:=plot({f, g}, color...

Hi, Here is what i have

with(LinearAlgebra):
nodes:=9:
Xfull:=RandomMatrix(nodes):

for i from 1 to nodes do
newXfull(i):=zip(`/`,Column(Xfull,i),Row(Xfull,1)(i)):
end do:

the answers are correct, but it gives me 9 sets of 9x1 matrix. How do I write so that it would give me a 9x9 output? As in, all the answers represented in one big matrix.

OR

If I join it one by one, I wrote << newXfull[1]>|< newXfull[2...

Dear Maple users

This might have been asked before, I'm asking because I believe the solution to my problem is simpler than what i found on google.

I have this problem:

How would you do the substitution below?

eq1 := ((2*mu[2]-2)*R[S]*B[n]*lambda[0]*mu[3]*n^2*N[p]^2+(-2*mu[2]+2*mu[2]^2)*R[S]*B[n]*lambda[0]*n^2*N[p]^2+d^2)/(d^2+b*n);

 eq2 := algsubs((2*mu[2]-2)*R[S]*B[n]*lambda[0]*mu[3]*n^2*N[p]^2 = q11, eq1);

Thanks

I am making a 2D plot and need to mark certain irregular points on the x-axis, so I managed to put tickmarks (and gridlines) at those points, and somehow Maple even labels each tickmark, which is what I want. 

Except, there is no room along the x-axis for all the labels, so I need the labels to appear vertically at each tickmark.

Is  there any way to do this? The only instructions I can find for vertical labelling just apply to axis labels, not tickmark or gridline labels.

Hola,
How can leave a trail/trace of black point in the yellow and purple screens? Something very similar to the option "animate / trace."

SVD-filtering.mw

Make it possible to take the numerical data of each screen from the "plottools [getdata]"

Gracias

Dear Maple Users

I wonder how I can use Maple to solve the problem:

for the potential \phi(r). The problem is from the artikle: http://en.wikipedia.org/wiki/Electric-field_screening

I'm particularly puzzled how to implement this differential operator and how to enter the Dirac delta function.

Thanks for any hints.

seriestoratpoly(series(simplify(LaguerreL(5, x)),x,6),['egf']);

seriestoratpoly(series(simplify(LaguerreL(5, a, x)),x,6),['egf']);

inverse z transform of sqrt(1-a^2)/(1-a/z)