{ Расчет сопротивления низких температур }
Procedure rasch_w_temp;
var
  Kt11: Real;
  v1, t1, riad: Integer;
Begin
  Kt11 := 0.5;
  riad := Round(v_pr / 20);
  v1 := riad * 20;
  if v1 = 0 then
    v1 := 20;
  if { (tip_vagona=1)and } (v1 > 120) then
    v1 := 120;
  // if (tip_vagona=2)and(v1>160) then v1:=160;
  // If t_vosd>-25 then t1:=-25 else
  t1 := Round(t_vosd / 5) * 5;
  if t1 < -60 then
    t1 := -60;
  { If tip_vagona=1 then } BEGIN
    { Грузовые вагоны }
    case v1 of
      20:
        case t1 of
          - 25:
            Kt11 := 1.00;
          -30:
            Kt11 := 1.01;
          -35:
            Kt11 := 1.01;
          -40:
            Kt11 := 1.01;
          -45:
            Kt11 := 1.01;
          -50:
            Kt11 := 1.01;
          -55:
            Kt11 := 1.01;
          -60:
            Kt11 := 1.01;
        end;
      40:
        case t1 of
          - 25:
            Kt11 := 1.00;
          -30:
            Kt11 := 1.03;
          -35:
            Kt11 := 1.03;
          -40:
            Kt11 := 1.04;
          -45:
            Kt11 := 1.04;
          -50:
            Kt11 := 1.05;
          -55:
            Kt11 := 1.05;
          -60:
            Kt11 := 1.06;
        end;
      60:
        case t1 of
          - 25:
            Kt11 := 1.00;
          -30:
            Kt11 := 1.05;
          -35:
            Kt11 := 1.06;
          -40:
            Kt11 := 1.07;
          -45:
            Kt11 := 1.07;
          -50:
            Kt11 := 1.08;
          -55:
            Kt11 := 1.08;
          -60:
            Kt11 := 1.09;
        end;
      80:
        case t1 of
          - 25:
            Kt11 := 1.00;
          -30:
            Kt11 := 1.07;
          -35:
            Kt11 := 1.08;
          -40:
            Kt11 := 1.09;
          -45:
            Kt11 := 1.10;
          -50:
            Kt11 := 1.11;
          -55:
            Kt11 := 1.11;
          -60:
            Kt11 := 1.12;
        end;
      100:
        case t1 of
          - 25:
            Kt11 := 1.00;
          -30:
            Kt11 := 1.09;
          -35:
            Kt11 := 1.10;
          -40:
            Kt11 := 1.12;
          -45:
            Kt11 := 1.13;
          -50:
            Kt11 := 1.14;
          -55:
            Kt11 := 1.14;
          -60:
            Kt11 := 1.15;
        end;
      120:
        case t1 of
          - 25:
            Kt11 := 1.00;
          -30:
            Kt11 := 1.11;
          -35:
            Kt11 := 1.12;
          -40:
            Kt11 := 1.13;
          -45:
            Kt11 := 1.15;
          -50:
            Kt11 := 1.16;
          -55:
            Kt11 := 1.16;
          -60:
            Kt11 := 1.17;
        end;
    End;
  END;