ed:VPLOT - SHAREWARE VECTOR PROGRAM - 12/17/87 updaten:THIS PROGRAM RESOLVES AND PLOTS VECTORSx: :: ,,: ,:XX$(N, ) R(3),U(3),X(3),Y(3),XC(3),YC(3) ,: ,: ()(),)()C L : L,: (): L,>: (): La ,#: "VECTOR PROGRAM" ,: "Copyright 1986,1987,1988 Prowess,Inc." ,: ,: ()(),)() ,: ,: ()(N,)()  ,K: ,: "V1.1": , L ; L,: (): L,P: ()C Lm ,: ()(N,)(): ,  ,: "Do you want to read the instructions? (Y/N/Q)"  ,>:K$: K$""  K$"Y" K$"y"  ,: XX$: ,K: " ": &A K$"N" K$"n"  ,: XX$: ,K: " ": ^]" K$"Q" K$"q" fg, 6:-------------------------------------------------------------------------@ T : T,: XX$: T:J T : T,: XX$: T:8T T : T,: XX$: T: T : T,: XX$: T:}^  ,: "HOW MANY VECTORS DO YOU WANT TO SUM ? ( MAX OF 10 )"h  ,F: "",CT$:CT(CT$)r CT$"Q" CT$"q" f| CT CT : @: ^ :chk illegal entry --------J ,: "WILL YOU ENTER VECTORS IN POLAR OR RECTANGULAR FORMAT (P/R)?"i ,H:S$: S$""  S$"Q" S$"q" f S$"R" S$"P" S$"r" S$"p" ,: XX$:  S$ "P" S$"p" ,: XX$:  ,: XX$:  ,: XX$R ,: "ENTER X AND Y COORDINATES IN THE FORM X,Y":INC N CT :enters rect. coordinates---------------------- INC,: "#";N: INC,#: "",X$,Y$:X(N)(X$):Y(N)(Y$) X$"Q" X$"q" f! Y$"Q" Y$"q" f X(N) Y(N) : ,: "CAN'T ALLOW BOTH X AND Y TO BE ZERO !": J  : J: T:  INCINC N  @&XS0YS:INC(: ,: "ENTER VECTOR IN THE FORM R,";();" ( ";();" IN DEGREES )":INCvD N  CT :enters polar vectors------------------------N INC,: "#";N: INC,#: "",R$,U$:R(N)(R$):U(N)(U$)X R$"Q" R$"q" fb U$"Q" U$"q" fl INCINC v N @: ,` ,:  );"VECTOR #";);"R";&);"THETA";3);"X";>);"Y" ,:  );"--------------------------------------------------------------" N  CT S$"R" S$"r"  :avoids p -> r conversion if rect. format-^ X(N) R(N) (( U(N) O–hI) ) :calculates x coordinate- Y(N) R(N) (( U(N) O–hI) ) :calculates y coordinate- ( X(N)) Qs  :avoids x roundoff error---------  X(N) V (Y(N)) Qs  :avoids y roundoff error---------f Y(N) | XS XS X(N) YS YS Y(N) N,: );N  N, " #####.#### ";R(N),U(N),X(N),Y(N)  ND* N,:  );"--------------------------------------------------------------"O4H XSZ>V YSuH ( H) Qs RXS \ ( V) Qs zfTHETA p `z V  THETA  `THETA Z ` ( V) Qs .;THETA ((YSXS) ) O–hIN YS  a XS  sTHETA THETA} $THETA  THETA $ XS  THETA h THETA $THETA  THETA$ `.YS 8 XS  V"BTHETA ,L `2VK`RT (XS YS)XjR(3)RThtU(3)THETAu~X(3)XSY(3)YSV  N,  "RESULTANT ->" N, " ######.####";RT,THETA,XS,YS ,  "PRESS ANY KEY TO CONTINUE", ,:A$: A$"" 5XM>YMH JT , l  "BUILDING ARRAYS"v , N CT :finds largest value of x and y for scaling-----( (X(N))XM XM(X(N)) 2 (Y(N))YM YM(Y(N)) < N[ F (X(3))XM XM(X(3)) :includes resultant in scaling----- P (Y(3))YM YM(Y(3)) :includes resultant in scaling----- Z YMXM XMYM :makes xm the largest value--------;!d N CT :scales for graph and x-y aspect ratio--a!n XC(N)((X(N)XM)E)!x YC(N)((Y(N)XM)ff#)! N!XC(3)((X(3)XM)E) :scales resultant-------------------7"YC(3)((Y(3)XM)ff#) :scales resultant-------------------E": ,,V"PIO–hI" (^,ffV)(o,f4),,B :draws plotting field---------------" (ffS,ffV)(ffS,f4), :draws vert axis--------------------A# (^,ffB)(o,ffB), :draws horiz axis-------------------M#  ,P# "X" :labels x-axis----------------------# ,5# "Y" :labels y-axis----------------------# ,F$ "X and Y MAX = +/-" :prints length of x-axis from 0-------l$ ,: "######.####";XM: ,$ (ffS,ffB),$" N CT :plots each vector--------------------$, (ffSXC(N),ffBYC(N)), %6 (ffSXC(N),ffBYC(N)),,n%@ (ffS,ffB), :resets to origin---------------------%J I d :creates slight pause between plots---%T I%^ N!&h (ffSXC(3),ffBYC(3)), :plots resultant----------------------H&r (ffSXC(3),ffBYC(3)),,^&| (ffS,ffB),i&  ,& "RESULTANT IDENTIFIED"& " BY LARGE WHITE"& "TERMINATOR CIRCLE AT:"&' " (";X(3);",";Y(3);")" :prints resultant rect coordinates---' : : :9' "TO START OVER ....1"T' "TO REVIEW VALUES .2r' "EXIT .............3":' " MAKE SELECTION"' ,:AA$: AA$"" ' (AA$) (AA$) : ' (AA$) d2( (AA$) I 3:XC(I):YC(I): I:XS:YS: ,,:: X( (AA$) ,,: ,: f(&:----------------------------------help-----------------------------------(0 @): ,: "* Up to 10 vectors may be entered in either rectangular or polar"Q)D ,: "formats. You must declare the number of vectors that the program")N ,: "must handle and the format that you intend to use.")X  ,: "* When inputting is complete, the program first displays a tabular"1*b  ,: "list of your inputs. If you used polar format, the list shows"~*l  ,: "your inputs in both polar and rectangular form. The resultant"*v  ,: "of all input vectors is shown in both formats."+ ,: "* Pressing any key after the tabular display will clear the screen"[+ ,: "and present a plot of your input vectors and their resultant."+ ,: "* The vector plot is autoscaled to insure that all vectors will"+ ,: "fit on the plot field."+ ,: "PRESS ANY KEY TO CONTINUE", ,:K$: K$"" 4, K$"Q" K$"q" f>, T, ,: "* The largest X or Y value (including the resultant) is used to", ,: "scale both the X and Y axis. The value of the largest X or Y value"/- ,: "defines the value of both the X and Y axis. The value is displayed."{-  ,: "* The coordinates of the resultant vector are listed and the"-  ,: "plotted resultant can be distinguished from the input vectors by".  ,: "the large terminator circle at its end point."V.  ,: "* Vector lengths (including the resultant) are limited to four". ,: "digits to the left of the decimal point and four decimal places.".  ,: "* A comma error will result in a 'REDO FROM START' message. Simply"G/* ,: "reenter, using correct syntax, at the currrent cursor position."m/4 ,: "PRESS ANY KEY TO START"/> ,:K$: K$"" >/H K$"Q" K$"q" f/R T: ^0\:-----------------------------------quit---------------------------------0fB0p ,: "RESTART THIS PROGRAM --------------1"w0z  ,: "RETURN TO PLOT MENU ---------------2"0  ,: "QUIT ------------------------------3"0 ,: "MAKE SELECTION"0 ,2:Q$: Q$"" 0QT(Q$)1 QT QT : %1 QT d<1 QT "PLOTM"T1 QT : "PLIC`1: