Hi

I want to solve the equation of

F'''(x)+F(x)*F''(x)=0

with the following  boundary conditions

F(-5)=F'(-5)=0

F'(5)=0.14

for solving it numerically in the computational domain of [-5...5]. I have seprated the domain into two parts and the governing equation and boundary condition in each domain is assumed as follows

g'''(x)+g(x)*g''(x)=0
g(0)=alpha
g(-5)=0
g'(-5)=0

The triangle ABC with A(4,7,5),  B(3,7,-2),  C(0,2,2) is a equilateral triangle. How do i find coordinates vertices of a equilateral triangle which their coodinates are integer numbers? Please help me. Thank you very much.

Here is my code:

restart:
with(LinearAlgebra):with(plots):with(ExcelTools):
n:=0.8:    e:=1:   h2:=0.01:
for N from 20 by 10 to 100 do
for b from 0.01 by 0.05 to 0.26 do
for h from 0.02 by 0.02 to 0.2 do
for h1 from 0.015 by 0.015 to 0.105 do
  A1:=proc(N::posint,b1,e1,h0,h11,h21) local M;
      M:=Matrix(N,(i,j)->if i=j then e elif abs(i-j)=1 then h else 0 fi);
      M[1,2...

Hi, I'm trying to do this sum in a loop but it says "Error, too many levels of recursion". May I know how should I write it please? Thanks.

for m from 1 to 5 do
Aplus:=Aplus+(m*2):
end do:

I'm trying to get Aplus=(1+(1*2))+(2+(2*2)+....+(5+(5*2))

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