Is the for..do loop in my procedure causing a problem?

Ask a Question

Create a Post

Question:Is the for..do loop in my procedure causing a problem?

Posted: Ronan 1267 Product: Maple 2018

October 22 2018

I trying to get a proc to work. In the 1st half of the document, I derive four sections for a pedal curve and plot them fine. In the second I try doing it with a procedure called Pedal. Am having problems. I think it might be something to do with the for.. do loop.

C := (x^2+y^2+12*x+9)^2-4*(2*x+3)^3

(1)

[(-x^2-12*x-9+2*(8*x^3+36*x^2+54*x+27)^(1/2))^(1/2), -(-x^2-12*x-9+2*(8*x^3+36*x^2+54*x+27)^(1/2))^(1/2), (-x^2-12*x-9-2*(8*x^3+36*x^2+54*x+27)^(1/2))^(1/2), -(-x^2-12*x-9-2*(8*x^3+36*x^2+54*x+27)^(1/2))^(1/2)]

(2)

X^4+4*X^3*r+2*X^2*Y^2+4*X^2*Y*s+6*X^2*r^2+2*X^2*s^2+4*X*Y^2*r+8*X*Y*r*s+4*X*r^3+4*X*r*s^2+Y^4+4*Y^3*s+2*Y^2*r^2+6*Y^2*s^2+4*Y*r^2*s+4*Y*s^3+r^4+2*r^2*s^2+s^4-8*X^3-24*X^2*r+24*X*Y^2+48*X*Y*s-24*X*r^2+24*X*s^2+24*Y^2*r+48*Y*r*s-8*r^3+24*r*s^2+18*X^2+36*X*r+18*Y^2+36*Y*s+18*r^2+18*s^2-27

(3)

(4)

(5)

xp1 := 1; yp1 := 2; lprp1 := -coeff(ltg1, y)*x+coeff(ltg1, x)*y+K1; for i to nops(sol1) do s := eval(sol1[i], x = r); print("s ", s); K1 := solve(eval(lprp1, [x = xp1, y = yp1]), K1); print("K1 ", K1); sol2 := solve([ltg1, lprp1], [x, y]); Pedal || i := [rhs(sol2[1, 1]), rhs(sol2[1, 2])]; p9 || i := plot([op(Pedal || i), r = -20 .. 20], colour = "MediumSeaGreen"); unassign('K1', 'sol2') end do

"K1 ", -4*(-r^2-12*r-9-2*(8*r^3+36*r^2+54*r+27)^(1/2))^(3/2)-4*r^2*(-r^2-12*r-9-2*(8*r^3+36*r^2+54*r+27)^(1/2))^(1/2)+16*(8*r^3+36*r^2+54*r+27)^(1/2)*r-48*r*(-r^2-12*r-9-2*(8*r^3+36*r^2+54*r+27)^(1/2))^(1/2)+192*r^2+96*(8*r^3+36*r^2+54*r+27)^(1/2)-36*(-r^2-12*r-9-2*(8*r^3+36*r^2+54*r+27)^(1/2))^(1/2)+576*r+432

(6)

(7)

This I can't get to work. All 4 sections of the pedal curve are the same and should not be.

Parse:-ConvertTo1D, "`%1` is not a module or member", RonanRoutines

"K||i", -8*r^3+(-4*(-r^2-12*r-9-2*(8*r^3+36*r^2+54*r+27)^(1/2))^(1/2)+48)*r^2-8*(-(-r^2-12*r-9-2*(8*r^3+36*r^2+54*r+27)^(1/2))^(1/2)-3)^2*r-4*(-r^2-12*r-9-2*(8*r^3+36*r^2+54*r+27)^(1/2))^(3/2)+48*r^2+576*r+432+96*(8*r^3+36*r^2+54*r+27)^(1/2)-36*(-r^2-12*r-9-2*(8*r^3+36*r^2+54*r+27)^(1/2))^(1/2)

(8)

(9)

for i to nops(sol1) do p9 || i := plot([op(Pedal2[i]), r = -20 .. 20], colour = "MediumSeaGreen") end do

Download Proc_for_Pedal_not_working.mw

84 views
More...

Contact Author

Subscribe

Generate PDF

Answer

Reply

Share

Branch

Create a new Post in reply

Ask a related Question

Flag

Answer this Question Add a Comment

Share via:

E-Mail Address:
Password:
Remember Me:	Automatically sign in on future visits

E-Mail Address:
Password:
Remember Me:	Automatically sign in on future visits

Ask a Question

Create a Post

Question: Is the for..do loop in my procedure causing a problem?

Question:Is the for..do loop in my procedure causing a problem?

84 views
More...

Contact Author

Subscribe

Generate PDF

Answer

Reply

Share

Branch

Create a new Post in reply

Ask a related Question

Flag

Preview

Preview

Save this setting as your default sorting preference?

Ask a Question

Create a Post

Generating PDF…

Save this setting as your default sorting preference?
Note: You can change your preference any time in your account settings
Don't show this again

From:
To:

Custom Message (optional):

Ask a Question

Create a Post

Question: Is the for..do loop in my procedure causing a problem?

Question:Is the for..do loop in my procedure causing a problem?

84 views More... Contact Author Subscribe Generate PDF Answer Reply Share Branch Create a new Post in reply Ask a related Question Flag

Preview

Preview

Save this setting as your default sorting preference?

Ask a Question

Create a Post

Generating PDF…

84 views
More...

Contact Author

Subscribe

Generate PDF

Answer

Reply

Share

Branch

Create a new Post in reply

Ask a related Question

Flag