Unit derba  ;
interface
Uses graph,Crt;
 Type
f_=0..15;
f__=0..1;
Procedure cls;
Procedure Color_(a,b:f_;c:f__); {Цвет:a текста,b экрана,1-очистить 0 не очищать}
Procedure text_(x,y:integer;b:string); {OuttextXY}
Procedure Close_(a,b:f_);         {вых с графики}
Procedure ekr_(a:string);                  {граф режим}
Procedure Line_(x1,y1,x2,y2:longint);
Procedure Pixel_(x1,y1:longint;z:f_);
Function F1_F2_(c1,f1,c2:double):double;  {Частота при изм конденсатора}
Function F1_C2_(c1,f1,F2:double):double;  {Конденсатор при изм частоты}
Function Sin_(a:double):double;  {sin в град}
Function Cos_(a:double):double;  {cos в град}
Function Sin_n(a:double):double;  {sin част}
Function Cos_n(a:double):double;  {cos част}
Function tg_(a:double):double;   {tn в град}
Function Ctg_(a:double):double;  {ctn в град}
Function x_y(a,b:double):double; {X^Y (X в стетени Y)}
Function R_CF(a,b:double):double; {R:=1/(2*pi*C*f)}
Function R_LF(a,b:double):double; {R:=(2*pi*L*F)}
Function R_b(t0,r0,t,rT:double):double;  {b-терморезистора}
Function R_t(t:double):double;   {R-терморезистора}
Function T_r(r:double):double;   {T-при знач r терморезистора}
Function mod_(a,b:double):double;  {Модуль комрл чисел}
Function mod_ob(a,b:double):double;  {Модуль обратн комрл чисел}
Function lg(b:double):double;  {дес лог}
Function L_cf(c,f:double):double;  {индукт по част и емк конд}
Function L_WSLM(w,s,l,m:double):double;
var i,j:longint;
x,y:integer;
r_12345__0,T_12345__0,b_12345__:double;
implementation
{-----}
Procedure cls;
Begin
    ClearViewPort;
end;
{------}
procedure Color_(a,b:f_;c:f__);
Begin
 textcolor (a);
    textbackground(b);
   if c=1 then clrscr;
end;
{---}
Procedure text_(x,y:integer;b:string);
begin
OutTextXY(x,y,b);
end;
{------}
Procedure Close_(a,b:f_);
Begin
Closegraph;
 textcolor (a);
    textbackground(b);
     clrscr;

end;
{-----------}
Procedure ekr_(a:string);
Var  GraphDriver,
       GraphMode : Integer;
Begin
 {--------}

    GraphDriver :=Detect;
InitGraph(GraphDriver, GraphMode,a);{путь к модулю графики}
     setBkcolor(15);


      SetColor(1);
    ClearViewPort;


End;
Procedure Line_(x1,y1,x2,y2:longint);
Begin
Line(x1,y1,x2,y2);
End;
Procedure Pixel_(x1,y1:longint;z:f_);
Begin
PutPixel(x1,y1,z);
End;
Function x_y(a,b:double):double;
begin
x_y:=a/abs(a)*exp(b*ln(abs(a)));
end;
{----}
Function Sin_(a:double):double;
begin
Sin_:=sin(a*pi/180);
end;
{----}
Function Cos_(a:double):double;
begin
Cos_:=cos(a*pi/180);
end;
{----}
Function Sin_n(a:double):double;  {sin в град}
 begin
  sin_n:=sin(a*2*pi);
  end;
  {-----}
Function Cos_n(a:double):double;  {cos в град}
 begin
  cos_n:=cos(a*2*pi);
  end;
  {-----}

Function Tg_(a:double):double;
begin
Tg_:=sin_(a)/cos_(a);
end;
{----}
Function Ctg_(a:double):double;
begin
Ctg_:=Cos_(a)/Sin_(a);
end;


{---------}
Function R_LF(a,b:double):double;
Begin
R_LF:=2*pi*a*b;
End;
{---------}
Function R_CF(a,b:double):double;
Begin
R_CF:=1/(2*pi*a*b);
End;
 {---------}
Function R_b(t0,r0,t,rT:double):double;
Begin
T0:=T0+273.3;
T_12345__0:=T0;
r_12345__0:=r0;
t:=t+273.3;
b_12345__:=Ln(Rt/r0)/((T0-T)/(t*t0));
r_b:=b_12345__;
End;
{-----}
Function R_t(t:double):double;
Begin
t:=t+273.3;
R_t:=R_12345__0*exp(b_12345__*(T_12345__0-T)/(T_12345__0*t));
End;
{------}
Function t_r(r:double):double;
begin
T_r:=-273.3+B_12345__*t_12345__0/(ln(r/r_12345__0)*t_12345__0+b_12345__);
end;
{-------}
Function F1_F2_(c1,f1,c2:double):double;
var
L:double;
Begin
L:=sqr(1/(2*pi*F1*sqrt(c1)));
F1_F2_:=1/(2*pi*sqrt(L*C2));
end;
{--------}
Function F1_C2_(c1,f1,F2:double):double;
var
L:double;
Begin
L:=sqr(1/(2*pi*F1*sqrt(c1)));
F1_C2_:=sqr(1/(2*F2*pi*sqrt(L)));
end;
Function mod_(a,b:double):double;
begin
Mod_:=sqrt(sqr(a)+sqr(b));
end;
Function mod_ob(a,b:double):double;
var z1,z2:double;
begin
if a=0 then a:=1e-32;
if b=0 then b:=1e-32;
 Z1:=sqr(a)+sqr(b);
 Z2:=sqrt(sqr(sqr(a)*b)+sqr(a*sqr(b)));
 mod_ob:=z2/z1;
end;

Function lg(b:double):double;  {дес лог}
 Begin
 Lg:=Ln(b)/ln(10);
 end;
{--------}
 Function L_cf(c,f:double):double;
Begin
L_cf:=sqr(1/(2*pi*f*sqrt(c)));      {f=1/2pi*N(c*l)}
end;
{---------}
Function L_WSLM(w,s,l,m:double):double;
begin;
L_WSLM:=(0.26*sqr(w/100)*s/L)*(m/2000);
end;
end.