JAMET

370 Reputation

4 Badges

5 years, 167 days

MaplePrimes Activity


These are replies submitted by JAMET

How to find n triples with such a procedure :
Tri:=proc(Y,n)#Y a triple
local m:
global &*:#coming from previus calculations
m:=Y&*(Y&*(Y&*Y))):#n times
RETURN(m)
end:Thank you for your help.

I have an error for the third line : error, invalid input: f expects its 1st argument, T, to be of type And(list...) but received p.

How to correct. Thank you.

Thank you. An other question : represent module points between 1 and 2 and argument points Pi/4 ?

Sorry for my errors.
I tried to adapt the program to cubes 
 

Cubes := `~`[`^`]([`$`(1 .. 10)], 3); Cubes := [1, 8, 27, 64, 125, 216, 343, 512, 729, 1000] for n from 100 to 100+13^(3) do found:=false ; for m to nops(Cubes) do for c in combinat:-choose(Cubes,m) do if add(c)=n then printf(cat("\n%d = %d^3", " + %d^3"$(m-1)),n,root~(3,c)[]); found:=true fi until found until found; if not found then printf("\n%d: no solution",n) fi od: But it doesn't work.

restart; Squares := `~`[`^`]([`$`(1 .. 12)], 2); Squares := [1, 4, 9, 16, 25, 36, 49, 64, 81, 100, 121, 144] for n from 129 to 129+13^(2) do found=false ; for m to nops(Squares) do for c in combinat:-choose(Squares,m) do if add(x,x=c)=n then printf(cat("\\n%d = %d^2", " + %d^2"$(m-1)),n,sqrt~(c)[]); found=true fi until found until found; if not found then printf("\\n%d: no solution",n) fi od: How to avoid this message ? Error cannot determinate if this expression is true or false : found. Thank you.

In spice of this changing, there is : Error, cannot determine if the expressionis true or false : found

still an error ! Thank you

I have this error with this last program; How to correct it ? Thank you.

For a more concise response could use fprint ? Thank you.

How to present the results, one number per line ? Thank you

How to find out the equation of the curve from t and t1 ? (that i found by hand calculation :
y*y^2*(2*x+p)*(2*x+p1)+(4*x^2-p*p1)^2=0); Thank you.
 

with debug(BISSEC);
I am getting : Error in BISSEC (now at the top level)=invalid left hand side in assignment. What can I do ? Thank you.

BISSEC := proc (P, U, V) local a, b, eq1, eq2, M1, M2, t, PU, PV, bissec1, bissec2; a := (P-U)/Norm(P-U, 2)+(P-V)/Norm(P-V, 2); M1 := P+a*t; b := (P-U)/Norm(P-U, 2)-(P-V)/Norm(P-V, 2); M2 := P+b*t; eq1 := op(eliminate({x = M1[1], y = M1[2]}, t)); eq2 := op(eliminate({x = M2[1], y = M2[2]}, t)); P := convert(P, list); U := convert(U, list); V := convert(V, list); PU := plot([P, U]); PV := plot([P, V]); bissec1 := implicitplot(op(eq1[2]), x = 0 .. 5, y = 0 .. 10, color = red); bissec2 := implicitplot(op(eq2[2]), x = 0 .. 5, y = 0 .. 10, color = green); display([bissec1, bissec2, PU, PV], scaling = constrained) end proc;

A := `<,>`(4, 8); B := `<,>`(4, 2); C := `<,>`(1, 4);
debug(BISSEC);
                             BISSEC
BISSEC(A, B, C);

P := [3/2, -42/25]; Q := [22649/5523, -2304/1841]; lma := 1.627112258;

with(geometry); point(Pp, P[1], P[2]); point(Qp, Q[1], Q[2]);
ellipse(ell, ['foci' = [Pp, Qp], 'MajorAxis' = lma]);
Error, (in geometry:-ellipse) the given polynomial/equation is not an algebraic representation of a ellipse


Why this error? Thank you

How to use LinearAlgebra to find characteristics of ellipse ?

5 6 7 8 Page 7 of 8