FOR #i:=1 TO 20 BY 1 DO

    WHILE #i = 1 DO

        #Td_min := -100;

        #Td_max := #T + 5;

    END_WHILE;

        #△Td := #Td_max - #Td_min;

        #Td平均 := (#Td_max + #Td_min) / 2;

        IF #△Td < 0.01 AND #△Td > -0.01 THEN

            EXIT;

        END_IF

            #Pw平均 := #Pws * (#Td平均 + 273.15) / #Tk;

            #Rh平均 := #Pw平均 / #Pws;

        IF #Rh平均 > #Rh THEN

            #Td_max := #Td平均;

        ELSE

            #Td_min := #Td平均;

        END_IF;

    END_FOR;

    #Td := #Td平均;

这个怎么算？