Author |
Message |
|
noxifis
Newbie
Joined: 02 May 2006 Posts: 5
|
Posted: 02 May 2006 09:33:13 pm Post subject: |
|
|
Need the code for "completing the square". I don't have a cable so I need to type the code in myself. Thanks in advance. |
|
Back to top |
|
|
noxifis
Newbie
Joined: 02 May 2006 Posts: 5
|
Posted: 02 May 2006 09:53:33 pm Post subject: |
|
|
Someone please help me out..... |
|
Back to top |
|
|
SilverCalcKnight |_
Active Member
Joined: 15 Nov 2005 Posts: 577
|
Posted: 02 May 2006 09:59:49 pm Post subject: |
|
|
Erm... completing the square?
I'm sure I can help you, just explain it a bit more. Thanks. |
|
Back to top |
|
|
Fr0stbyte124
Advanced Newbie
Joined: 26 Jan 2006 Posts: 98
|
Posted: 02 May 2006 10:03:11 pm Post subject: |
|
|
I can cut out the middle man for you.
You'll probably be learning this in a day or two. |
|
Back to top |
|
|
noxifis
Newbie
Joined: 02 May 2006 Posts: 5
|
Posted: 02 May 2006 10:08:28 pm Post subject: |
|
|
No, I know the quad formula. I need something like this.... Click |
|
Back to top |
|
|
SilverCalcKnight |_
Active Member
Joined: 15 Nov 2005 Posts: 577
|
Posted: 02 May 2006 10:13:20 pm Post subject: |
|
|
Oh hey...that. We learned that already. We just didn't call it that.
Code: :Prompt A,B,C
:(b^2--4ac)->R
:If R>0:1->D
:If R=0:0->D
:If R<0:Then
:ClrHome
:Output(1,1, "No solutions...
:Stop
:End
:ClrHome
:If D=0:Output(1,1,"1 solution...
:If D=1:Output(1,1,"2 solutions...
:For(W,1,1000):End
:(-B+*The square root symbol*B^2-4ac)/2a->G
:(-B--*sqrt*B^2-4ac)/2a->H
:ClrHome
:Output(1,1,G
:Output(1,1,H
:For(W,1,1000):End
Hope this helps,
-SilverCalcKnight
EDIT:Drat!! I've been beaten!
Download the file, then use Cemetech's SourceCoder to look at the source, then key it into your calc.
Last edited by Guest on 02 May 2006 10:15:00 pm; edited 1 time in total |
|
Back to top |
|
|
IAmACalculator In a state of quasi-hiatus
Know-It-All
Joined: 21 Oct 2005 Posts: 1571
|
Posted: 02 May 2006 10:22:03 pm Post subject: |
|
|
This code, brought to you by SourcecoderTM
Code: Disp "Complete","The","Square"," "," ","By Wes Cowan 06","Epsilon Release"
Pause
ClrHome
Disp "AX[sup]2[/sup]+BX+C=D
Prompt A,B,C,D
round(D/A,4→D
round(C/A,4→C
round(B/A,4→B
1→A
ClrDraw
ClrHome
AxesOff
FnOff
Text(18,2,"X=√(",D-C+(B/2)[sup]2[/sup],")-",B/2
Text(26,2,"X=‾√(",D-C+(B/2)[sup]2[/sup],")-",B/2
Text(2,2,"X=√(",D-C,"+",B[sup]2[/sup],"/",2[sup]2[/sup],")-",B,"/",2
Text(10,2,"X=‾√(",D-C,"+",B[sup]2[/sup],"/",2[sup]2[/sup],")-",B,"/",2
If B2-4A(C-D)<0
Then
Text(50,2,"NO REAL SOLUTIONS
Else
Text(34,2,"X=",√(D-C+(B/2)[sup]2[/sup])-B/2
Text(42,2,"X=",‾√(D-C+(B/2)[sup]2[/sup])-B/2
End
Pause With some minor optimizations, such as the removing of end parenthesis and quotation marks. |
|
Back to top |
|
|
noxifis
Newbie
Joined: 02 May 2006 Posts: 5
|
Posted: 02 May 2006 10:30:09 pm Post subject: |
|
|
What does the "solution/no solution" mean? Are you suppose to enter that in? |
|
Back to top |
|
|
SilverCalcKnight |_
Active Member
Joined: 15 Nov 2005 Posts: 577
|
Posted: 02 May 2006 10:33:13 pm Post subject: |
|
|
Yes, you type them in quotes. They are put on the screen using Output(. Anything in the third argument in quotes is displayed on the screen. |
|
Back to top |
|
|
Fr0stbyte124
Advanced Newbie
Joined: 26 Jan 2006 Posts: 98
|
Posted: 02 May 2006 10:34:04 pm Post subject: |
|
|
If you were graphing the function, then you would see that the curve never crosses the x-axis. Because of this, no set of sqares can be arranged to balance the equation. |
|
Back to top |
|
|
noxifis
Newbie
Joined: 02 May 2006 Posts: 5
|
Posted: 02 May 2006 10:34:38 pm Post subject: |
|
|
Thanks for your help! |
|
Back to top |
|
|
Weregoose Authentic INTJ
Super Elite (Last Title)
Joined: 25 Nov 2004 Posts: 3976
|
Posted: 03 May 2006 12:23:26 am Post subject: |
|
|
When you get into circles, you'll be dealing with two variables instead of one.
I made this a long time ago for that purpose, but be warned: it's a bit messy.
[font="courier new"]StoreGDB 1
FnOff
ClrHome
ClrDraw
GridOff
AxesOff
PlotsOff
Disp "ax²+by²+cx+dy+e
Input "a=",A
Input "b=",B
Input "c=",C
Input "d=",D
Input "e=",E
C/2:If A:Ans/A
Ans→X
D/2:If B:Ans/B
Text(0,0,"a(x+b)²+c(y+d)²+e
Text(‾1,56,72,"Swap
Text(‾1,16,0,"a=",A
Text(‾1,24,0,"b=",X
Text(‾1,32,0,"c=",B
Text(‾1,40,0,"d=",Ans
Text(‾1,48,0,"e=",A[font="times new roman"]π²+Be²+C[font="times new roman"]π+De+E-A([font="times new roman"]π+X)²-B(e+Ans)²
DelVar BRepeat 30=abs(A-75
Repeat Ans
getKey→A
End
If A=15
Then
If B
Then
DispGraph
Else
Output(8,13,"Swap
End
not(B→B
End
End
ClrHome
ClrDraw
RecallGDB 1
DelVar GDB1"
I'm sorry to say, it also doesn't factor the result...
Last edited by Guest on 03 May 2006 12:24:35 am; edited 1 time in total |
|
Back to top |
|
|
NerdyBoy
Newbie
Joined: 20 Mar 2006 Posts: 2
|
Posted: 03 May 2006 03:58:14 pm Post subject: |
|
|
for a TI 83 calculator
:lbl1
:disp "input X^2
:input a
disp "input x
:input b
:disp "input n
:input c
abs(b/2)->d
^2->z
:z+(-c)->e
:text(1,1,a,"x^2+",b,"x+",z,"=",e
text(7,1,"sqrt(x-",d,")^2=sqrt",e
:if e<1:then
:e*(-1)->e:sqrt(e)->e
:text(14,1"x-",d,"=+",e,"i
:text(21,1)"x-",d,"=-",e,"i
:pause
:goto1
:end
:if e>1:then
:sqrt(e)->e
:text(14,1,"x-",d,"=",e
:pause
:goto1
:end
hope it helps |
|
Back to top |
|
|
|