pablo.m

一个可以生成标准翼型坐标

function pablo(action);
format short e;
if nargin<1,
    action='initialize';
end;

if strcmp(action,'initialize'),

  global firstcp;
  firstcp = 0;

 back = [0.34 0.67 0.6];
 fore = [0.3 0.3 0.3];

  figNumber=figure( ...
 'Units','normalized', ...
 'Position',[.1 .15 .7 .7],...
 'Name','PABLO', ...
 'NumberTitle','off', ...
 'Color',back, ...
 'Visible','off');
  axes( ...
        'Units','normalized', ...
        'Position',[0.05 0.25 0.7 .70]);
  zoom;

   %====================================
   % Information for all buttons

   xPos=0.77;
   btnWid=0.15;
   btnHt=0.11;
   top=0.35;
   left=0.05;
   right=0.75;
   bottom=0.04;
   spacing=0.04;

   %====================================
   % NBRE OF PANELS 
   btnNumber = 1;
   yPos=0.91-(btnNumber-1)*(btnHt+spacing);
   textStr='  Nb of panels';
   
   % Generic button information
   btnPos1=[xPos yPos btnWid btnHt/3];
   btnPos2=[xPos+btnWid yPos+0.005 btnWid/3 btnHt/3];
   popupHndl=uicontrol( ...
       'Style','text', ...
       'Units','normalized', ... 
       'BackgroundColor',back, ...     
       'ForegroundColor',[0.3 0.3 0.3], ...
       'FontUnits','normalized', ...
       'Fontsize',[.5], ...
       'HorizontalAlignment','left',...
       'FontWeight','bold', ...
       'Position',btnPos1, ...
       'String',textStr);
   callbackStr = 'pablo(''nbpanels'')';
   nbpanelsHndl = uicontrol( ...
	'Style','edit', ...
        'Units','normalized', ...
	'Position',btnPos2, ...
	'Horiz','right', ...
	'Background','white', ...
        'Foreground','black', ...
        'FontUnits','normalized', ...
        'Fontsize',[0.5], ...
	'String','50','Userdata',50, ...
        'callback',callbackStr);

   %====================================
   % The ALFA popup button
   btnNumber=2;
   yPos=1.-(btnNumber-1)*(btnHt+spacing)*.9;
   textStr='            Alpha';
   % Generic button information
   btnPos1=[xPos yPos btnWid btnHt/3];
   btnPos2=[xPos+btnWid yPos+0.005 btnWid/3 btnHt/3];
   alfaHndl=uicontrol( ...
       'Style','text', ...
       'BackgroundColor',back, ...
       'ForegroundColor',[0.3 0.3 0.3], ...
       'FontUnits','normalized', ...
       'Fontsize',[.5], ...
       'HorizontalAlignment','left',...
       'FontWeight','bold', ...
       'Units','normalized', ...
       'Position',btnPos1, ...
      'String',textStr);
   btnPos=[xPos yPos-spacing btnWid btnHt/2];
   callbackStr = 'pablo(''alfa'')';
   alfaHndl = uicontrol( ...
	'Style','edit', ...
        'Units','normalized', ...
	'Position',btnPos2, ...
	'Horiz','right', ...
	'Background','white', ...
        'Foreground','black', ...
        'FontUnits','normalized', ...
        'Fontsize',[.5], ...	
        'String','0','Userdata',0, ...
        'callback',callbackStr);

   %===================================
   % The Viscous radiobutton
   btnNumber = 3;
   yPos=0.96-(btnNumber-1)*(btnHt+spacing)*.7+btnHt/2;
   btnPos=[xPos yPos 1.32*btnWid btnHt/3];
   viscousHndl = uicontrol( ...
       'Style','checkbox', ...
       'Units','normalized', ...
       'Position',btnPos, ...
       'BackgroundColor',back, ...
       'ForegroundColor',fore, ...
       'FontUnits','normalized', ...
       'Value',[0], ...
       'Fontsize',[.5], ...
       'HorizontalAlignment','left',...
       'FontWeight','bold', ...
       'String',' Viscous  ', ...
       'SelectionHighlight','off', ...
       'callback','pablo(''viscousselected'')', ...
       'Interruptible','off');

   textPos=[xPos+0.55*btnWid yPos-btnHt/3+0.002 .77*btnWid btnHt/3];
   callbackStr = 'pablo(''reynolds'')';
   reynoldsHndl = uicontrol( ...
	'Style','edit', ...
	'Units','normalized', ...
	'Position',textPos, ...
	'Horiz','right', ...
	'Background','white', ...
        'Foreground','black', ...
        'FontUnits','normalized', ...
        'Fontsize',[.5], ...
	'String','1000000','Userdata',1000000, ...
	'callback',callbackStr);

    btnPos=[xPos yPos-btnHt/3+0.007 0.52*btnWid btnHt/5];  
    justtext = uicontrol( ...
       'Style','text', ...
       'Units','normalized', ...  
       'BackgroundColor',back, ...
       'ForegroundColor','k', ...
       'Position',btnPos, ...
       'HorizontalAlignment','center',...
       'FontUnits','normalized', ...
       'Fontsize',[.5], ...
       'String','Reynolds :', ...
       'Interruptible','off');  

   %===================================
   % The Ellipse radiobutton
   btnNumber = 3;
   yPos=0.875-(btnNumber-1)*(btnHt+spacing)*.7+btnHt/2-0.04;
   btnPos=[xPos yPos .8*btnWid btnHt/3];
   ellipseHndl = uicontrol( ...
       'Style','checkbox', ...
       'Units','normalized', ...
       'Position',btnPos, ...
       'BackgroundColor',back, ...
       'ForegroundColor',fore, ...
       'FontUnits','normalized', ...
       'Value',[0], ...
       'Fontsize',[.5], ...
       'HorizontalAlignment','left',...
       'FontWeight','bold', ...
       'String',' Ellipse  ', ...
       'SelectionHighlight','off', ...
       'callback','pablo(''ellipseselected'')', ...
       'Interruptible','off');

   textPos=[xPos+0.95*btnWid yPos .38*btnWid btnHt/3];
   callbackStr = 'pablo(''ratio'')';
   ellipseratio = uicontrol( ...
	'Style','edit', ...
	'Units','normalized', ...
	'Position',textPos, ...
	'Horiz','right', ...
	'Background','white', ...
        'Foreground','black', ...
        'FontUnits','normalized', ...
        'Fontsize',[.5], ...
	'String','1','Userdata',1, ...
	'callback',callbackStr);

    btnPos=[xPos+0.142 yPos+0.034 0.4*btnWid btnHt/5];  
    justtext = uicontrol( ...
       'Style','text', ...
       'Units','normalized', ...  
       'BackgroundColor',back, ...
       'ForegroundColor','k', ...
       'Position',btnPos, ...
       'HorizontalAlignment','center',...
       'FontUnits','normalized', ...
       'Fontsize',[.5], ...
       'String','Ratio', ...
       'Interruptible','off');  


   %===================================
   % The NACA editor
   btnNumber = 3;
   yPos=0.8795-(btnNumber-1)*(btnHt+spacing)*.7-0.03;
   btnPos=[xPos yPos .8*btnWid btnHt/3];
   nacaHndl = uicontrol( ...
       'Style','checkbox', ...
       'Units','normalized', ...
       'Position',btnPos, ...
       'BackgroundColor',back, ...
       'ForegroundColor',fore, ...
       'FontUnits','normalized', ...
       'Value',[1], ...
       'Fontsize',[.5], ...
       'HorizontalAlignment','left',...
       'FontWeight','bold', ...
       'String',' NACA  ', ...
       'SelectionHighlight','off', ...
       'callback','pablo(''nacaselected'')', ...
       'Interruptible','off');

   textPos=[xPos+.8*btnWid yPos .16*btnWid btnHt/3];
   callbackStr = 'pablo(''NACA1'')';
   naca1Hndl = uicontrol( ...
	'Style','edit', ...
	'Units','normalized', ...
	'Position',textPos, ...
	'Horiz','right', ...
	'Background','white', ...
        'Foreground','black', ...
        'FontUnits','normalized', ...
        'Fontsize',[.5], ...
	'String','0','Userdata',0, ...
	'callback',callbackStr);

   textPos=[xPos+.8*btnWid+.15*btnWid yPos .16*btnWid btnHt/3];
   callbackStr = 'pablo(''NACA2'')';
   naca2Hndl = uicontrol( ...
	'Style','edit', ...
	'Units','normalized', ...
	'Position',textPos, ...
	'Horiz','right', ...
	'Background','white', ...
	'Foreground','black', ...
        'FontUnits','normalized', ...
        'Fontsize',[.5], ... 
	'String','0','Userdata',0, ...
	'callback',callbackStr);

   textPos=[xPos+.8*btnWid+.3*btnWid yPos .23*btnWid btnHt/3];
   callbackStr = 'pablo(''NACA34'')';
   naca34Hndl = uicontrol( ...
	'Style','edit', ...
	'Units','normalized', ...
	'Position',textPos, ...
	'Horiz','right', ...
	'Background','white', ...
	'Foreground','black', ...
        'FontUnits','normalized', ...
        'Fontsize',[.5], ...
	'String','12','Userdata',12, ...
	'callback',callbackStr);

   %===================================
   % The Airfoil Library button
   btnNumber = 4;
   yPos=0.88-(btnNumber-1)*(btnHt+spacing)*.58-0.02;
   btnPos=[xPos yPos .8*btnWid btnHt/3];
   libHndl = uicontrol( ...
       'Style','checkbox', ...
       'Units','normalized', ...
       'Position',btnPos, ...
       'BackgroundColor',back, ...
       'ForegroundColor',fore, ...
       'FontUnits','normalized', ...
       'Fontsize',[.5], ...
       'HorizontalAlignment','left',...
       'FontWeight','bold', ...
       'SelectionHighlight','off', ...
       'String',' Library  ', ...
       'callback','pablo(''libselected'')', ...
       'Interruptible','off');

   %===================================
   % The Airfoil Library browser
   btnPos=[xPos+ 0.8*btnWid+0.001 yPos .52*btnWid btnHt/3];  
   libpush = uicontrol( ...
       'Style','push', ...
       'Units','normalized', ...
       'Position',btnPos, ...
       'FontUnits','normalized', ...
       'Fontsize',[.4], ...
       'String','Select...', ...
       'callback','pablo(''selectinlib'')', ...
       'Interruptible','off');

   %===================================
   % Display current selected airfoil
    btnPos=[xPos yPos-btnHt/3 1.5*btnWid btnHt/3];  
    currentA = uicontrol( ...
       'Style','text', ...
       'Units','normalized', ...  
       'BackgroundColor',back, ...
       'ForegroundColor','k', ...
       'Position',btnPos, ...
       'HorizontalAlignment','left',...
       'FontUnits','normalized', ...
       'Fontsize',[.4], ...
       'String','Current : no selection', ...
       'Interruptible','off');  

   %===================================
   % Type of singularities
   btnNumber = 5;
   yPos=0.9-(btnNumber-1)*(btnHt+spacing)*.67;
   btnPos=[xPos yPos 1.32*btnWid btnHt/3];
   sHndl = uicontrol( ...
       'Style','checkbox', ...
       'Units','normalized', ...
       'Position',btnPos, ...
       'BackgroundColor',back, ...
       'ForegroundColor','r', ...
       'FontUnits','normalized', ...
       'Fontsize',[.5], ...
       'HorizontalAlignment','left',...
       'FontWeight','bold', ...
       'SelectionHighlight','off', ...
       'String',' Cst Source', ...
       'callback','pablo(''sselected'')', ...
       'Interruptible','off');

   btnNumber = 6;
   yPos=yPos - btnHt/3;
   btnPos=[xPos yPos 1.32*btnWid btnHt/3];
   dHndl = uicontrol( ...
       'Style','checkbox', ...
       'Units','normalized', ...
       'Position',btnPos, ...
       'BackgroundColor',back, ...
       'ForegroundColor','b', ...
       'FontUnits','normalized', ...
       'Fontsize',[.5], ...
       'Value',[1], ...
       'HorizontalAlignment','left',...
       'FontWeight','bold', ...
       'SelectionHighlight','off', ...
       'String',' Cst Doublet', ...
       'callback','pablo(''dselected'')', ...
       'Interruptible','off');

   yPos=yPos - btnHt/3;
   btnPos=[xPos yPos 1.32*btnWid btnHt/3];
   vHndl = uicontrol( ...
       'Style','checkbox', ...
       'Units','normalized', ...
       'Position',btnPos, ...
       'BackgroundColor',back, ...
       'ForegroundColor','g', ...
       'FontUnits','normalized', ...
       'Fontsize',[.5], ...