project files cleanup

2026-07-22 03:29:19 +02:00 · 2017-03-06 19:11:09 +01:00
parent 66826994db
commit e91e88d4c5
26 changed files with 11 additions and 2 deletions
--- a/old/friction.pas
+++ b/old/friction.pas
@@ -0,0 +1,182 @@
+unit friction;          {wspolczynnik tarcia roznych materialow}
+
+(*
+This Source Code Form is subject to the
+terms of the Mozilla Public License, v.
+2.0. If a copy of the MPL was not
+distributed with this file, You can
+obtain one at
+http://mozilla.org/MPL/2.0/.
+*)
+(*
+    MaSzyna EU07 - SPKS
+    Friction coefficient.
+    Copyright (C) 2007-2013 Maciej Cierniak
+*)
+
+
+(*
+(C) youBy
+Co brakuje:
+- hamulce tarczowe
+- kompozyty
+*)
+(*
+Zrobione:
+1) zadeklarowane niektore typy
+2) wzor jubaja na tarcie wstawek Bg i Bgu z zeliwa P10
+3) hamulec tarczowy marki 152A ;)
+*)
+
+interface
+
+//uses hamulce;
+uses mctools,sysutils;
+
+TYPE
+
+  TFricMat = class
+    public
+    function GetFC(N, Vel: real): real; virtual;
+  end;
+
+  TP10Bg = class(TFricMat)
+    public
+    function GetFC(N, Vel: real): real; override;
+  end;
+
+  TP10Bgu = class(TFricMat)
+    public
+    function GetFC(N, Vel: real): real; override;
+  end;
+
+  TP10yBg = class(TFricMat)
+    public
+    function GetFC(N, Vel: real): real; override;
+  end;
+
+  TP10yBgu = class(TFricMat)
+    public
+    function GetFC(N, Vel: real): real; override;
+  end;
+
+  TP10 = class(TFricMat)
+    public
+    function GetFC(N, Vel: real): real; override;
+  end;
+
+  TFR513 = class(TFricMat)
+    public
+    function GetFC(N, Vel: real): real; override;
+  end;
+
+  TFR510 = class(TFricMat)
+    public
+    function GetFC(N, Vel: real): real; override;
+  end;
+
+  TCosid = class(TFricMat)
+    public
+    function GetFC(N, Vel: real): real; override;
+  end;
+
+  TDisk1 = class(TFricMat)
+    public
+    function GetFC(N, Vel: real): real; override;
+  end;
+
+  TDisk2 = class(TFricMat)
+    public
+    function GetFC(N, Vel: real): real; override;
+  end;
+
+
+implementation
+
+function TFricMat.GetFC(N, Vel: real): real;
+begin
+  GetFC:=1;
+end;
+
+function TP10Bg.GetFC(N, Vel: real): real;
+begin
+//  GetFC:=0.60*((1.6*N+100)/(8.0*N+100))*((Vel+100)/(5*Vel+100))*(1.0032-0.0007*N-0.0001*N*N);
+//  GetFC:=47/(2*Vel+100)*(2.145-0.0538*N+0.00074*N*N-0.00000536*N*N*N)/2.145;
+//    GetFC:=46/(2*Vel+100)*(11.33-0.105*N)/(11.33+0.179*N);
+//  GetFC:=49/(2*Vel+100)*(13.08-0.083*N)/(12.94+0.285*N);
+//if Vel<20 then Vel:=20;
+//  Vel:= Vel-20;
+//  GetFC:=0.52*((1*Vel+100)/(5.0*Vel+100))*(13.08-0.083*N)/(12.94+0.285*N);
+//    GetFC:=Min0R(0.67*(1*(277-2.66*Vel)/(100+2.1*Vel)+0.23*(-686+8.27*Vel)/(100+1.16*Vel))*(13.08-0.083*N)/(12.94+0.285*N),0.4);
+    GetFC:=exp(-0.022*N)*(0.19-0.095*exp(-Vel/25.7))+0.384*exp(-Vel/25.7)-0.028;
+end;
+
+function TP10Bgu.GetFC(N, Vel: real): real;
+begin
+//  GetFC:=0.60*((1.6*N+100)/(8.0*N+100))*((Vel+100)/(5*Vel+100));
+//  GetFC:=47/(2*Vel+100)*(2.137-0.0514*N+0.000832*N*N-0.00000604*N*N*N)/2.137;
+//  GetFC:=0.49*100/(2*Vel+100)*(11.33-0.013*N)/(11.33+0.280*N);
+//  GetFC:=0.52*((Vel+100)/(5.0*Vel+100))*(11.33-0.013*N)/(11.33+0.280*N);
+//if Vel<20 then Vel:=20;
+//  Vel:= Vel-20;
+//  GetFC:=0.52*((0.0*Vel+120)/(5*Vel+100))*(11.33-0.013*N)/(11.33+0.280*N);
+//  GetFC:=0.49*100/(3*Vel+100)*(11.33-0.013*N)/(11.33+0.280*N);
+//    GetFC:=Min0R(0.67*(1*(277-2.66*Vel)/(100+2.1*Vel)+0.23*(-686+8.27*Vel)/(100+1.16*Vel))*(11.33-0.013*N)/(11.33+0.280*N),0.4);
+    GetFC:=exp(-0.017*N)*(0.18-0.09*exp(-Vel/25.7))+0.381*exp(-Vel/25.7)-0.022;//0.05*exp(-0.2*N);
+end;
+
+function TP10yBg.GetFC(N, Vel: real): real;
+var A,C,u0, V0: real;
+begin
+    A:=2.135*exp(-0.03726*N)-0.5;
+    C:=0.353-A*0.029;
+    u0:=0.41-C;
+    V0:=25.7+20*A;
+    GetFC:=(u0+C*exp(-Vel/V0));
+end;
+
+function TP10yBgu.GetFC(N, Vel: real): real;
+var A,C,u0, V0: real;
+begin
+    A:=1.68*exp(-0.02735*N)-0.5;
+    C:=0.353-A*0.044;
+    u0:=0.41-C;
+    V0:=25.7+21*A;
+    GetFC:=(u0+C*exp(-Vel/V0));
+end;
+
+function TP10.GetFC(N, Vel: real): real;
+begin
+  GetFC:=0.60*((1.6*N+100)/(8.0*N+100))*((Vel+100)/(5*Vel+100));
+//  GetFC:=43/(2*Vel+100)*(2.145-0.0538*N+0.00074*N*N-0.00000536*N*N*N)/2.145
+end;
+
+
+function TFR513.GetFC(N, Vel: real): real;
+begin
+  GetFC:=0.3-Vel*0.00081;
+//  GetFC:=43/(2*Vel+100)*(2.145-0.0538*N+0.00074*N*N-0.00000536*N*N*N)/2.145
+end;
+
+function TCosid.GetFC(N, Vel: real): real;
+begin
+  GetFC:=0.27;
+end;
+
+function TDisk1.GetFC(N, Vel: real): real;
+begin
+  GetFC:=0.2375+0.000885*N-0.000345*N*N;
+end;
+
+function TDisk2.GetFC(N, Vel: real): real;
+begin
+  GetFC:=0.27;
+end;
+
+function TFR510.GetFC(N, Vel: real): real;
+begin
+  GetFC:=0.15;
+end;
+
+end.
+