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:#`!02UY,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 ); 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 Subject: PUT SERPL.RAV To: Graph TI bulletin board Message-Id: 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: 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.