Simulation Core
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

32 lines
1.1 KiB

  1. subroutine RTable_StartUp
  2. Use RTable_VARIABLES
  3. IMPLICIT NONE
  4. RTable%Inertia_Moment = 23.261341d0 ! 23.261341[kg.m^2] = 552[lb.ft^2]
  5. RTable%Mech_Efficiency = 0.93d0
  6. RTable%RateChange = 1.d0 ![Hz/s] !??????? motaghayere voroudi
  7. RTable%High_Conv_Ratio = 4.825d0
  8. RTable%Low_Conv_Ratio = 7.31d0
  9. RTable%time_step = 0.1d0 ![s]
  10. RTable%MaxRPM = 200.d0 ![RPM] !??????? motaghayere voroudi
  11. RTable%MaxTorque = 1500.d0 ![ft.lbf] !??????? motaghayere voroudi
  12. RTable%RateChange = RTable%RateChange*60.d0 ![RPM/s] ![cycle/min]=[RPM] !1[Hz]=60[RPM]
  13. RTable%J_coef = RTable%Inertia_Moment+(1.d0*(RTable%Inertia_Moment))
  14. RTable%Conv_Ratio = RTable%Low_Conv_Ratio
  15. RTable%String_JCoef = 0.d0
  16. RTable%Torque = 0.d0
  17. RTable%K_throttle = 0
  18. RTable%Speed = 0.d0
  19. RTable%TorqueGaugeOutput = 0.d0
  20. call RTable_OffMode
  21. end subroutine RTable_StartUp