首页IF((Trim(Loop_Flag_Input)=='1st_Loop').OR.(Trim(Loop_Flag_Input)=='2nd_Loop'))THEN ! IF(NPROPERTY.EQ.1)THEN IF (TRIM(Pro_Coolant)=='Na') THEN vol(Nv_IC)%hmv=SOLENT(pterm(Nv_IC),tterm(Nv_IC)-273.15) hterm(Nv_IC)=vol(Nv_IC)%hmv vol(Nv_IC)%dstmv=SOLDEN(tterm(Nv_IC)-273.15) vol(Nv_IC)%hm_Pv=SOLDHP(tterm(Nv_IC)-273.15) vol(Nv_IC)%hm_dstmv=1/SOLDRH (pterm(Nv_IC),tterm(Nv_IC)-273.15)

IF((Trim(Loop_Flag_Input)=='1st_Loop').OR.(Trim(Loop_Flag_Input)=='2nd_Loop'))THEN ! IF(NPROPERTY.EQ.1)THEN IF (TRIM(Pro_Coolant)=='Na') THEN vol(Nv_IC)%hmv=SOLENT(pterm(Nv_IC),tterm(Nv_IC)-273.15) hterm(Nv_IC)=vol(Nv_IC)%hmv vol(Nv_IC)%dstmv=SOLDEN(tterm(Nv_IC)-273.15) vol(Nv_IC)%hm_Pv=SOLDHP(tterm(Nv_IC)-273.15) vol(Nv_IC)%hm_dstmv=1/SOLDRH (pterm(Nv_IC),tterm(Nv_IC)-273.15)

时间: 2023-12-06 13:03:26 浏览: 77

heading_control.rar_desired _linearization _trim_uav_uav control

This script will setup the nonlinear simulation (UAV_NL.mdl) and call trim and linearization routines. Select the desired aircraft here in this script, via the "UAV_config()" function call.

这是一个Fortran程序中的一段代码。这段代码中，IF语句用于判断Loop_Flag_Input变量的值是否为'1st_Loop'或'2nd_Loop'。如果是，就会执行其中的语句。其中，NPROPERTY和Pro_Coolant是变量名，vol、SOLENT、SOLDEN、SOLDHP和SOLDRH是函数名。这段代码的作用是计算理想气体的一些物理量，例如摩尔体积、焓等。

阅读全文