home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / network.pas < prev    next >
Pascal/Delphi Source File  |  1987-02-03  |  947b  |  38 lines
  1.  
  2. Program Network;
  3.  
  4. {$I COMPLEX.INC}
  5.  
  6. Var w,C,L,R,
  7.     Zabs,phi   :Real;
  8.     Z,ZC,ZL,ZR :Complex;
  9.  
  10. Begin
  11.  
  12. (* Einlesen der physikalischen Groessen *)
  13.  
  14. Write ('Frequenz der Wechselspannung (in Hertz):     w = '); ReadLn (w);
  15. Write ('Kapazitaet des Kondensators (in Farad)       C = '); ReadLn (C);
  16. Write ('Induktivitaet der Spule (in Henry):          L = '); ReadLn (L);
  17. Write ('Ohmscher Widerstand (in Ohm)                 R = '); ReadLn (R);
  18.  
  19. (* Berechnung der komplexen Widerstaende *)
  20.  
  21. ZC := cinv (cval (0,w*C));
  22. ZL := cval (0,w*L);
  23. ZR := cval (R,0);
  24.  
  25. (* Auswertung der Gesamtimpedanz *)
  26.  
  27. Z := cinv (cadd (cinv(ZC),cinv(cadd(ZL,ZR))));
  28.  
  29. (* Zerlegung in Widerstand und Phasenverschiebung *)
  30.  
  31. polar (Z,Zabs,phi);
  32. phi := phi * 180/pi;
  33.  
  34. WriteLn;
  35. Write ('Gesamtimpedanz des Netzwerks (in Ohm):       Z = '); WriteLn (Zabs:7:3);
  36. Write ('Phase zwischen Strom/Spannung (in Grad):   phi = '); WriteLn (phi:7:3);
  37.  
  38. End.