janhardo

Ask a Question

Create a Post

12 Badges

Member for: 11 years, 42 days

Contact janhardo

MaplePrimes Activity

These are questions asked by janhardo

Programming toolbox...

Asked: janhardo 700

July 14 2020

1 13

Back in 2000 there was a Maple programming toolbox to buy
Can't find it ?

Rewriting general formula ...

Asked: janhardo 700 Product: Maple

July 13 2020

1 7

Some rewriting for a general equation , how to do ?

Transformation of eq 1 in wanted eq 2 form

(general form 2)

After complete square for x and y and some rearrangment (general form 2) , i got this equation eq1

>	(A(x + (By + D)/(2A))^2 + C(y + (Bx + E)/(2C))^2)/(-Cy^2 - Ey - 2F + (By + D)^2/(4A) - Ax^2 - Dx + (Bx + E)^2/(4*C))=1;

(A*(x+(1/2)*(B*y+D)/A)^2+C*(y+(1/2)*(B*x+E)/C)^2)/(-C*y^2-E*y-2*F+(1/4)*(B*y+D)^2/A-A*x^2-D*x+(1/4)*(B*x+E)^2/C) = 1

(1)

>	eg1:= (-4A^2Cx^2 + (-4y^2C^2 + (-8Bxy - 4Dx - 4Ey)C - (Bx + E)^2)A - (By + D)^2C)/(4A^2Cx^2 + (4y^2C^2 + (4Dx + 4Ey + 8F)C - (Bx + E)^2)A - (By + D)^2C) = 1;

(-4*A^2*C*x^2+(-4*y^2*C^2+(-8*B*x*y-4*D*x-4*E*y)*C-(B*x+E)^2)*A-(B*y+D)^2*C)/(4*A^2*C*x^2+(4*y^2*C^2+(4*D*x+4*E*y+8*F)*C-(B*x+E)^2)*A-(B*y+D)^2*C) = 1

(2)

(1) wanted form of eg1
general form 2))

for M ≠ 0

(x+(B*y+D)/(2*A))^2/X + (y+(B*x+E)/(2*C))^2/Y = 1

Note : what X and Y could be ? : M/A and M/B ..

So it must be possible to transform eq1 in this form above ?

Some background info

If B= 0 in (general form 2) you get (general form 1)

(2) In book for M ≠ 0 as example we get this form
(general form 1 )

(x+C/(2*A))^2*A/M + (y+D/(2*B))^2*B/M = 1

Download vraag1-herleidingconics2.mw

Classification of conic sections...

Asked: janhardo 700

July 09 2020

0 11

I must do some formula manipulation

Classification of conic sections

>	restart; with(student):

>	Ax^2+By^2+Cx+Dy+E=0;

(1)

>	f:= Ax^2+By^2+Cx+Dy+E;

(2)

>	completesquare(f, x);

(3)

>	f:= Ax^2+By^2+Cx+Dy+E;

(4)

>	ans:=Student[Precalculus][CompleteSquare]( (4), [y] );

(5)

>	ans1:=Student[Precalculus][CompleteSquare]( (4), [x] );

(6)

ans+ans1;

(7)

>	B(y + D/(2B))^2 + Ax^2 + Cx + 2E - D^2/(4B) + A(x + C/(2A))^2 - C^2/(4A) + By^2 + D*y = 0;

(8)

Now i must get this form A( )^2 +B( )^2 = M

Download vraag_herleiding_conic_sections_formule.mw

No gridlines options for plot3d...

Asked: janhardo 700 Product: Maple

July 06 2020

0 4

I like to show a domain as a roster of gridlines
The plotbuilder has not this option gridlines , so i must program this ?

A general Step Function not with the r...

Asked: janhardo 700

July 05 2020

1 12

A complicated programmed task for me
I must analyze this

In this plot there are vertical walls connected with the step area's , but that its not wanted.
Also the domain is showed by adding 0 in the plot 3d( {0, 'g(x,y)'}, ...) and this distract the plot with the step area's
Its not needed the domain in the plot ( in order to get the 0 value for z )

The 3 axis x,y,z are not visible in the plot
Seems to be not complete programmed as it just to be.

restart

>	f:=proc(A,B,T,x,y)

>	local n,m,i,j,val;

>	n:=nops(A);m:=nops(B);

>	for i from 1 to n-1 do

>	for j from 1 to m-1 do

>	if (A[i]<=x and x<A[i+1]) and

>	(B[j]<=y and y< B[j+1]) then val:=T[i,j];

end if;

end do;

val;

end proc:

>	A:=[0,1,2];B:=[0,1,2];T:=array([[1,2],[1.5,1]]);

array( 1 .. 2, 1 .. 2, [( 2, 1 ) = (1.5), ( 1, 1 ) = (1), ( 2, 2 ) = (1), ( 1, 2 ) = (2) ] )

(1)

>	g:=(x,y)->f(A,B,T,x,y);

(2)

>	plot3d({0,'g(x,y)'},x=0..2,y=0..2,axes=normal, scaling=constrained,orientation=[-37,75], projection=0.8,tickmarks=[3,0,2], shading=XYZ,lightmodel='light3');