home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / HAMRADIO / NETWORK2.LBR / NETWORK.PZS / NETWORK.PAS
Pascal/Delphi Source File  |  2000-06-30  |  2KB  |  45 lines
  1. {.pl66}
  2.  
  3. {**************************************************************************
  4.  *               RF NETWORK ANALYSIS PROGRAM                              *
  5.  *                 by: WILLIAM L. MUNSON                                  *
  6.  *           VERSION 1.1 PASCAL  -  NOV 3, 1987                           *
  7.  **************************************************************************}
  8.  
  9. {Set the conversion factors.}
  10. const     lc:  real = 1.0E-9;
  11.           cc:  real = 1.0E-12;
  12.           cm:  real = 2.54;
  13.           fr:  real = 1.0E+6;
  14.  
  15. type      resistor           = array[1..200] of real;
  16.           capacitor          = array[1..200] of real;
  17.           inductor           = array[1..200] of real;
  18.           number             = array[1..200] of real;
  19.           element            = array[1..200] of integer;
  20.  
  21. var       ns,a,i,pe,d,n,code,position  :integer;
  22.           rs,nf,dc,ii,w,m,th,ef,zo,de,fo,tr,rl,mf,df,co,f,a1,d1,a4,b1,b4,c1,
  23.           c4,d4,a3,k,a6,b3,b6,c3,c6,d3,d6,g,h,v1,v2,q,r1,r2,ro,x2,ra,ia,rb,
  24.           t,ib,rc,ic,rd,id,v3,v4,dummy,freq  :real;
  25.           correct,same_type,induct  :boolean;
  26.           r:  resistor;
  27.           c:  capacitor;
  28.           l:  inductor;
  29.           nu: number;
  30.           et: element;
  31.           savefile:  text;
  32.           data:  string[20];
  33.           filename:  string[14];
  34.           resist:  string[20];
  35.           imag:  string[20];
  36.           description:  string[255];
  37.           q1:  char;
  38.  
  39.  
  40. {$I NETWORK1.PAS}
  41. {$I FILES.PRO}
  42. {$I NETWORK2.PAS}
  43.  
  44.  
  45.