1  /*******************************************************************
     2   *  HEADER FILE: define.h - to specify the geometric and           *
     3   *  operational parameters of a Stirling cycle machine.            *
     4   *  PROGRAMMER:  izzi urieli                                       *
     5   *  LAST MODIFICATION DATE:  01/15/97 (included yoke drive)        * 
     6   *******************************************************************/
     7  #ifndef STIRLING
     8  #define STIRLING
     9  #define PI 3.14159265359  
    10  
    11  /*********  in file "define.c"  ***************************/
    12  /* FUNCTION PROTOTYPES - invoked by function "define"  */
    13  void engine(); /* engine type and working space geometry */
    14  void heatex(); /* heat exchanger geometric parameters */
    15  void gas();    /* working gas properties */
    16  void operat(); /* operating parameters and Schmidt analysis */
    17  
    18  /* GLOBAL VARIABLES - specified in function "define" */
    19  FILE *infile;   /*pointer to the input data file */
    20  FILE *outfile;  /*pointer to the output data file */
    21  FILE *printfile;   /*pointer to the print output file */
    22  
    23  /*********  in file "gas.c"  ***************************/
    24  /* GLOBAL VARIABLES - specified in function "gas" */
    25  double rgas; /*  gas constant (Joules/kg.K) */ 
    26  double cp; /* specific heat at const pressure (J/kg.K) */
    27  double cv; /* specific heat at const volume (J/kg.K) */
    28  double gama; /* ratio (cp / cv) */
    29  double mu0; /* dynamic viscosity at ref temp t0 (kg.m/s) */
    30  double t0; /* reference temperature (273 K) */
    31  double t_suth; /* Sutherland constant for dynamic viscosity */
    32  double prandtl; /* Prandtl number (0.71) */
    33  
    34  /*********  in file "engine.c"  ***************************/
    35  /* GLOBAL VARIABLES - specified in function "engine" */
    36  char myeng; /* char represents engine type (s sinusodal) */
    37   
    38  /* GLOBAL VARIABLES - specified in functions "sinedr", "yokedr" */
    39  double vclc;  /* compression space clearance volumes (cu.m) */
    40  double vcle;  /* expansion space clearance volumes (cu.m) */
    41  double vswc;  /* compression space swept volume (cu.m) */
    42  double vswe;  /* expansion space swept volume (cu.m) */
    43  double alpha; /* expansion space phase angle advance (radians) */
    44  
    45  /* GLOBAL VARIABLES - specified in function "yokedr" */
    46  double crank; /* crank radius */
    47  double b1, b2; /* yoke height and base dimensions (m) */
    48  double acomp, aexp; /* area of comp., exp. pistons (m^2) */
    49  double ymin; /* minimum yoke vertical displacement (m) */
    50  
    51  /* Should be specified in "engine.c" for loss analysis in  "aploss.c" */
    52  double ddiam; /* diameter of expansion side piston (displacer) (m) */
    53  double dgap; /* displacer cylinder/piston gap (m) */
    54  double xda;  /* expansion (displacer piston) amplitude */
    55  
    56  /*********  in file "heatex.c"  ***************************/
    57  /* GLOBAL VARIABLES - specified in function "cooler" */
    58  double vk;   /* vk: cooler void volume (cu.m)   */
    59  double ak;   /* ak: cooler internal free flow area (sq.m) */
    60  double awgk; /* cooler internal wetted area (sq.m) */
    61  double dk;   /* dk: cooler hydraulic diameter (m) */
    62  double lk;   /* lk: cooler effective length (m) */
    63  
    64  /* GLOBAL VARIABLES - specified in function "heater" */
    65  double vh;   /*vh:  heater void volume (cu.m)  */
    66  double ah;   /* ah:  heater internal free flow area (sq.m) */
    67  double awgh; /* heater internal wetted area (sq.m) */
    68  double dh;   /* dh:  heater hydraulic diameter (m)  */
    69  double lh;   /* lh:  heater effective length (m)  */
    70  
    71  /*********  in file "regen.c"  ***************************/
    72  /* GLOBAL VARIABLES - specified in functions "regen", "matrix" */
    73  double vr;   /* regenerator void volume (cu.m) */
    74  double ar;   /* regenerator internal free flow area (sq.m)   */
    75  double awgr; /* regenerator internal wetted area (sq.m) */
    76  double dr;   /* regenerator hydraulic diameter (m)  */
    77  double lr;   /* regenerator effective length (m)  */
    78  double cmr;  /* regenerator matrix thermal capacity (Joules/K)  */
    79  double cqwr; /* regenerator wall thermal conductance (Watts/K)  */
    80  char rmatrx;  /* specifies the matrix type (foil or mesh) */
    81  
    82  /****************  in file "operat.c" ******************/ 
    83  /* GLOBAL VARIABLES - specified in functions "operat", "schmidt" */
    84  double pmean; /* nominal mean operating pressure (Pa) */
    85  double tk;    /* cold sink operation temperatures */
    86  double th;    /* hot sink operation temperature */
    87  double freq;  /* operating frequency (hertz) */
    88  double tr;    /* effective regenerator temperature (K) */
    89  double omega; /* operating frequency (rads/sec) */
    90  double mgas;  /* mas of gas in system - evaluated by Schmidt */
    91  
    92  #endif
condor{t.gentry}8: