Very minimal program, but it gets the job done. Takes in an input of coefficients for an equation in the form of Ax^2+Bxy+Cy^2+Dx+Ey+F=0 and rotates the axes to remove the xy term. Outupt is a series of numbers, these are the coefficients of the new equation in the form of Ax^2+Cy^2+Dx+Ey+F=0.
SourceCoder 3 (CONIC) wrote:
:Prompt A,B,C,D,E,F
:tan⁻¹(B/(A-C))/2→θ
:cos(θ→M
:sin(θ→N
:A(M²)+B(MN)+C(N²→G
:A(N²)+B(-MN)+C(M²→H
:DM+EN→I
:EM-DN→J
:Disp G,H,I,J,F
It should be noted that there are certain cases where the program will think it's dividing by zero. Don't rely on this to do the work, but it's excellent for checking answers.
You can fix the divide-by-zero issue by using the R►Pθ(x,y) command instead of tan-1(y/x).
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.
»
Go to Registration page
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
