A specular spherical sail, i.e. ECHO-2

Since version 7.
------------------------------------------------------------------------
See also BuildCADModel, CreateBody, CreateComponent, DrawSCPlanPlugIn,
Inertias, GeomPatch, FindDirectory, SaveStructure
------------------------------------------------------------------------

Contents

%-------------------------------------------------------------------------------
%   Copyright (c) 2006 Princeton Satellite Systems, Inc. All rights reserved.
%-------------------------------------------------------------------------------

Script control

%---------------
createFiles = 1;

Properties

%-----------
diam     = 41.1;  % m
mass     = 265.0; % kg
t        = 0.001;

Create the sail mass structure

%-------------------------------
inertia = Inertias( mass, [diam/2 t], 'hollow sphere', 1 );
massS   = struct('inertia', inertia, 'mass', mass, 'cM', [0;0;0] );

Initialize

%-----------
BuildCADModel( 'initialize' );

Add general properties

%-----------------------
BuildCADModel( 'set name' ,  'ECHO' );
BuildCADModel( 'set units',  'mks'  );

%------------------------------------------------------------------

Create CAD bodies first

%------------------------------------------------------------------

Core

%-----
m = CreateBody( 'make', 'name', 'Core' );
BuildCADModel('add body', m );

This creates the connections between the bodies

%------------------------------------------------
BuildCADModel( 'compute paths' );

%------------------------------------------------------------------

Create CAD Components second

%------------------------------------------------------------------

Sail

%-----
[v, f] = GeomPatch( struct('a',diam/2,'b',diam/2,'c',diam/2,'n',20) );
m = CreateComponent( 'make', 'generic','name','ECHO','body',1,...
                     'mass', massS, 'faceColor', 'mirror','rA',[0;0;0],...
                     'sigmaS', 1, 'sigmaD', 0, 'sigmaA', 0, 'emissivity', 0.3,...
                     'vertex', v ,'face', f, 'inside', 0  );
BuildCADModel( 'add component', m );

%------------------------------------------------------------------

Export

%------------------------------------------------------------------
if( createFiles )
  g = BuildCADModel( 'get cad model' );
  cd(FindDirectory('SailData'));
  SaveStructure( g, 'ECHO' );
end

3D View

%--------
DrawSCPlanPlugIn('initialize',g);

%--------------------------------------
% PSS internal file version information
%--------------------------------------

Published with MATLAB® R2020a