This program is used by me quite frequently as it quickly 
computes the equation of a line given 2 points.


You must first run the uudecode "UUD20" program which will create the
"LINES.85P" file and then you must run the "LINK85" program to load
the file to your TI85.
                          Running the program.

Simply execute the "LINES" program by selecting it from the PROG
menu.  Once the program comes up, simply type in the first 
point on the line as "x", then its corresponding "y", then the 
second point "x1" and agains its corresponding "y1".  The 
equation of the line is given as "y=mx+b" where m,b appear in 
matrix form.
----end documentation----
----begin ascii----
\START\
\COMMENT=Program file dated 04/17/93, 17:55
\NAME=LINES
\FILE=lines.85P
ClLCD:Disp "(y-y1)=m(x-x1)\>\y=mx+b":Disp " "
Input "x )",\UC-Omega\3
Input "y )",\UC-Omega\4
Input "x1)",\UC-Omega\1
Input "y1)",\UC-Omega\2
(\UC-Omega\4-\UC-Omega\2)/(\UC-Omega\3-\UC-Omega\1)\->\\UC-Omega\4
(\UC-Omega\2-(\UC-Omega\4)\UC-Omega\1)\->\\UC-Omega\3
ClLCD:Disp "y=mx+b        [m b]":
[\UC-Omega\4,\UC-Omega\3]\>Frac\
\STOP\  
----end ascii----
----begin uue----
begin 644 lines.85p
M*BI423@U*BH:#`!0<F]G<F%M(&9I;&4@9&%T960@,#0O,3<O.3,L(#$W.C4U
M``!U+Q5FK)*J``D`G0`2!4Q)3D53G0";`.QNZ2TH>2UY,2D];2AX+7@Q*05Y
M/6UX*V(`;NDM(`!OYBUX("D`+S3*,V_F+7D@*0`O-,HT;^8M>#$I`"\TRC%O
MYBUY,2D`+S3*,F\0-,HT833*,A%Q$#3*,V$TRC$1"S3*-&\0-,HR81`TRC01
M-,HQ$0LTRC-O[&[I+7D];7@K8B`@("`@("`@6VT@8ET`;F\,-,HT+S3*,PT*
"2S4`
`
end
----end UUE----  


--1900029379-251924306-736213613:#17059--


From rpd@umdsun2.umd.umich.edu Fri Apr 30 19:49:44 1993
Received: from umdsun2.umd.umich.edu by mathserv.mps.ohio-state.edu with SMTP id AA27958
  (5.65c/IDA-1.4.4 for <GRAPH-TI@function.mps.ohio-state.edu>); Fri, 30 Apr 1993 19:49:41 -0400
Received: from elvis.umd.umich.edu by umdsun2.umd.umich.edu (4.1/SMI-4.1)
	id AA15819; Fri, 30 Apr 93 19:48:27 EDT
Received: by elvis.umd.umich.edu (4.1/SMI-4.1)
	id AA17067; Fri, 30 Apr 93 19:47:31 EDT
Date: Fri, 30 Apr 1993 19:46:56 -0400 (EDT)
From: ravi prasad <rpd@umdsun2.umd.umich.edu>
Subject: PUT SERPL.RAV
To: Graph TI bulletin board <GRAPH-TI@math.ohio-state.edu>
Message-Id: <Pine.3.05.9304301956.C17059-c101000@umdsun2.umd.umich.edu>
Mime-Version: 1.0
Content-Type: MULTIPART/MIXED; BOUNDARY="1900029379-628664860-736213650:#17059"
--1900029379-628664860-736213650: #17059
Content-Type: TEXT/PLAIN; charset=US-ASCII

--1900029379-628664860-736213650:#17059
Content-Type: APPLICATION/octet-stream; name="SERPL.RAV"
Content-ID: <Pine.3.05.9304301930.D17059@umdsun2.umd.umich.edu>
Content-Description: 

PUT SERPL.RAV
This program is used by me quite frequently as it quickly 
computes the Equivelent Resistor, Cap, and Inductor values etc.
----begin documentation----
You must first run the uudecode "UUD20" program which will create the
"SerPl.85P" file and then you must run the "LINK85" program to load
the file to your TI85.
                          Running the program.

Simply execute the "SerPl" program by selecting it from the PROG
menu. Since Cappacitors in series along with Conductance in 
series have the same simplification routine as Resistors, 
Inductors, and Impedences in parallel, you can use this 
program to simplify some of the computations for their 
equivelent values.  

Example:        If you have 5 resistors in Parallel, simply 
                type the value of each resistor one at a time.
                When done, type "0" as the last resistor (zero)
                value.  The equivelent resistor value is given.

                Since parallel inductors and Impedence values are 
                calculated in the same manner as resistors in prallel,
                the above technique may again be used except 
                replacing resistor value by the inductor value.

                Since Cappacitors in series and Conductance in 
                series are computed in the same manner as resistors 
                in parallel, simply type the cappacitor values 
                in place of the resistor values.  The same is true for 
                conductance.

                           Req -----> Resistor equivelent
                           Leq -----> Inductor equivelent
                           Zeq -----> Impedence equivelent
                           Ceq -----> Cappacitor equivelent
                           Geq -----> Conductance equivelent

                NOTE: THE PROGRAM WILL ALSO HANDLE COMPLEX 
                      VALUES, AS IT WAS NECESSARY FOR ME TO BE 
                      ABLE TO WORK WITH IMPEDENCE EXPRESSED AS
                      "jwc" or "1/jwl" etc. FOR CAPS AND INDUCTORS 
                      RESPECTIVELY.
        
                      To enter complex numbers such as "1/(jwc)"
                      I usually type "1/(0,w*c)" where omega 
                      "w" is the angular fequency of the input signal 
                        and "c" is the cappacitor value.

I hope this program save someone a little time.  I know it 
saves me a LOT of time.

If any problems exist, feel free to talk to me at my email 
address:   rpd@umdsun2.umd.umich.edu

I have been using this program for over a year without any 
problems.
 
