delglobe.pas

线性规划CAI应用程序及原代码

unit delglobe;
interface
 const
      maxofn=50;
      maxofntj=50;
      MaxNumber=1.7e13;
      JingDu  =1.0e-7;

type
  CCP=^CC;
  CC=Array[1..MaxOfN] of Record
     Num:extended;         {X[i] de Shu Xing ('>= ','<= ','+12','-12',}
     Att:String[3];    {'SCB-->Shong Chi Bian liang','SYB-->SHeng yu',}
     end;              {'RGB->Ren Gong '}

  BB=Array[1..MaxOfN] of longint;
  BBP=^BB;
  AA=Array[1..MaxOfN,1..MaxOfN] of extended;
  AAP=^AA;
    TTiaoJian=Array[1..MaxOfN] of String[3];
  TTIAOJIANP=^TTIAOJIAN;
    TCb=Array[1..Maxofntj] of extended;
  TCBP=^TCB;


implementation
end.