mirror of
https://github.com/MaSzyna-EU07/maszyna.git
synced 2026-03-22 15:05:03 +01:00
62 lines
894 B
ObjectPascal
62 lines
894 B
ObjectPascal
unit klasy_ham; {fizyka hamulcow dla symulatora}
|
|
|
|
(*
|
|
MaSzyna EU07 - SPKS
|
|
Brakes. Basic classes.
|
|
Copyright (C) 2007-2013 Maciej Cierniak
|
|
*)
|
|
|
|
|
|
interface
|
|
|
|
uses mctools,sysutils;
|
|
|
|
//CONST;
|
|
|
|
TYPE
|
|
TRurka= class //bezposrednie polaczenie, co wleci to wyleci
|
|
private
|
|
Vol: real;
|
|
Cap: real;
|
|
|
|
public
|
|
function Update(dt: real);
|
|
procedure Flow(dV: real);
|
|
end;
|
|
|
|
PRurka= ^TRurka;
|
|
|
|
TTrojnik= class(TRurka)
|
|
private
|
|
Wyjscie1: PRurka;
|
|
Wyjscie2: PRurka;
|
|
Wyjscie3: PRurka;
|
|
public
|
|
end;
|
|
|
|
TZbiornik= class(TRurka)
|
|
private
|
|
Wyjscie_jeden: PRurka;
|
|
public
|
|
end;
|
|
|
|
TPowtarzacz= class(TRurka)
|
|
private
|
|
public
|
|
end;
|
|
|
|
TPrzekladnik= class(TPowtarzacz)
|
|
private
|
|
public
|
|
end;
|
|
|
|
function PF(P1,P2,S:real):real;
|
|
|
|
implementation
|
|
|
|
|
|
|
|
end.
|
|
|
|
|