水蒸气软件 源程序 代码 index=1:r*c; figure; plot(index,ZL,'blue'); title('真实焓值') figure; plot(index,yps_guji,'red'); title('过热蒸汽曲线拟合'); figure; plot(index,del_ypstc,'red'); title('过热蒸汽曲线拟合误差');