getjnjx.m

来自「用MATLAB编写关于飞机设计的matlab程序」· M 代码 · 共 33 行

%脚本文件，获取 Jmin AND Jmax
%	THIS SUBROUTINE ASKS FOR THE DESIRED VALUES
%	OF Jmin AND Jmax
%
      global  Jmin  Jmax
      %Real Jmin, Jmax
      %Common /logunits/imon,ikey	
      fprintf('\n');%c	Write(imon,*)
      fprintf('******************** Enter range of ADVANCE RATIO to be used in calculations: *******************\n');%c	Write(imon,*) 'Enter range of ADVANCE RATIO to be used in calculations: '
%---22头    Continue
      %fprintf('*********************  Input J min！: **********************\n')%c	Write(imon,*) ' Input J min: '
      Jmin=-1.0;%用于进入循环
      while Jmin<=0
            Jmin=input('*********************  Input Jmin ！: **********************\n');               %c	Read(5,*) Jmin
            if (Jmin<0.0)
               fprintf('*********************J min cannot be negative.***************************\n');
               Jmin=-1.0;
            end   
      end               %   c		Goto 22
%	Endif
%c	Write(imon,*) ' Input J max: '
      Jmax=Jmin;
      while Jmax<=Jmin
            Jmax=input('*********************  Input Jmax ！: **********************\n'); %c	Read(5,*) Jmax
    	    if (Jmax<=Jmin) 
		       fprintf('*************J max should be larger that J min ！！！ - try again ***********\n')
               Jmax=Jmin;
            end   
      end   %c		Goto 22
%c	Endif
%c	Continue
%   Return