{ Missle Analysis, Copyright (c) 2015 Rodney Roberts This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. } CONST ObjPasConsole = 1; // Calling Program Language / UI ObjPasWin = 2; LazarusWin = 3; FTN95console = 4; D2Console = 5; D2Win = 6; MenuCmdNone = 0; // Active Menu Commands MenuCmdCrt = 2; MenuCmdOpen = 4; MenuCmdNew = 8; MenuCmdCalc = 12; MenuCmdExit = 16; MenuCmdSave = 18; UnknownShape = 0; ConicalNose = 1; // Nose Cone Shapes OgiveNose = 2; ParabolicNose = 3; RedstoneNose = 4; HonestJohnNose = 5; DeltaFins = 1; // Fin Shapes SweptDelta = 2; iTriangleFins = 3; // Isosceles Triangle TrianglrFins = 4; TrapezoidFins = 6; // Isosceles Trapezoid ClippedDelta = 8; // General Trapezoid TaperedSwept = 10; // General Trapezoid RectanglrFins = 12; ellipticalFins = 14; ellipticalSwpt = 15; // Rear Swept only ellptclClipped = 18; // Elliptical Clipped at Tip elptclSwptClpd = 19; // Elliptical Swept Clipped CompoundShpFin = 99; // Break down into component shapes MaxStageSerl = 6; // Maximum Number of Serial Stages maxFinStage = 10; // Maximum Fins / Stage maxBTstage = 10; // Maximum Body Tubes / Stage maxCTstage = 10; // Maximum Conical Transitions / Stage CfL = 0.00148; // Laminar flow coefficient of friction inUOM = 1; // length, area ftUOM = 3; cmUOM = 5; mUOM = 7; // meter micronUOM = 9; // micrometer (10^-6 meter) ozUOM = 10; // mass lbUOM = 11; grUOM = 13; kgUOM = 14; lbfUOM = 20; // Pound Force nUOM = 25; // Newton SAErhoUOM = 72; // SAE density (slug/ft^3) SIrhoUOM = 74; // kg/m^3 SAEmuUOM = 76; // lbf s/ft^3 (dynamic viscosity) cpUOM = 78; // centiPoise (10^-3 N s/m^3) dFtUOM = 80; // degrees Farenheit dCtUOM = 86; // degrees Centrigrade aDegUOM = 92; // angle degrees aRadUOM = 96; // angle radians EngMfgRec = 10; // Engine Record Types EngMdlRec = 20; EngThrstUomRec = 30; EngThrstRec = 40; EngDelayRec = 50; mrHdrRec = 10; // Model Rocket Record Types mrStageRec = 20; mrCTrec = 30; mrBTrec = 40; stdLLug = 10; // Standard Launch Lug (soda straw) tLLUG = 20; // T Lug (C-Rail) noLLUG = 99; // Guide Rails iUOMwarn = 477; // ----- ----- TYPE // Number of Fins, CompPerStage = array[1..MaxStageSerl] of smallint; // CT, etc. per Stage // To be used for overall stage specific data (length, radius, mass, fin msr) StageData = array[1..MaxStageSerl] of single; // BodyTubeData and ConclTransData are dimensioned 'FORTRAN style' BodyTubeData = array[1..maxBTstage,1..MaxStageSerl] of single; // Conical Transition Data ConclTransData = array[1..maxCTstage,1..MaxStageSerl] of single; rawCPdata = array[1..MaxStageSerl] of dataPtsTyp; // nrtyp.inc