       ( )  .
  ,    ()  SaveCalc,   ,       ,   ,    . 

..

       Bred2i
http://andronov.astronomy.org.ua/soft/Bred2i.rar
http://www.paco.net/~il-a/Bred2i.rar
http://il-a.pochta.ru/Bred2i.rar -  , -    ...

  ,     NT/2000/XP,   DLL "",
     EXE -  B.EXE,  
http://www.softodrom.ru/win/p4726.shtml
  Final  Bred2     ,     Bred2.

          ( TEA  3.26       Plugins).
     
   function HandleData (h:integer; var val:PChar):integer; far;external 'compute_';
    PChar   ,       .
    0   .
 h:integer  ,        TEA,    
  Bred  :).   compute_.dll      , 
   B.Exe .      ,  Alt+C,  
  (    ), .
sin(pi/4)=0.707106781186547.

     (www.roxton.kiev.ua)   .
      TEA ( Win  UNIX),   XLAM
   .

unit SaveCalc0;
//   SaveCalc0 ( , )
// 04.04.2004 ( , , http://il-a.pochta.ru, oap11@pochtamt.ru)
//    ,    1
//        ,   ,
//    
//     

//COS   
//SQRT , S    
//SIN   
//SINC     = sin(pi*x)/(pi*x)
//TG, TAN   
//ARCCOS   
//ARCSIN   
//ARCTG, ARCTAN, ATN   
//FIBONACCI, FI     1,2,3,5,8... Fi_n=Fi_(n-1)+Fi_(n-2)
//ERF   erfc(x)=int(exp(-v*v)*2/sqrt(pi),v,0,x)
//ERFC    erfc(x)=int(exp(-v*v)*2/sqrt(pi),v,x,infinity)
//FACT  x! (   ,      )
//FAC1  1/x! (,       )
//FACL ln(x!)   (      )
//EXP, E   
//DEX, D     (  ) -    Bred2,     DLL.
//LN     
//LG, LOG10   
//CTG, COTAN   
//SQR     
//LOG(x,y)       log_x(y)
//POWER(x,y), POW(x,y), P(x,y)     x^y
//C(n,k)   C(n,k)=n!/(k!(n-k)!), k=0..n 
//CLN(n,k)    ln(C(n,k))
//ATAN2(y,x)     (r*sin f, r*cos f)    (-pi,pi)  ATAN2
//ARCTG2(y,x)     (r*sin f, r*cos f)    (0,2*pi)  ARCTG2
//ABS  
//SH, SINH  
//CH, COSH  
//TH, TANH  
//ARSH, ARCSINH   
//ARCH,ARCCOSH    
//ARTH,ARCTANH    
//SGN  ()  (-1  x<0; 0  x=0; 1  x>0)
//SUM(i1,i2,function(i))    ,    i.
//                    "".
//              -   ,  - ,  -
//             ,    i
//                (trunc)   .
//            ,  sum(0,5,pow(0.1,i)*pow(0.9,5-i)*fact(5)/fact(i)/fact(5-i))  1
//MAX(x_1,..,x_N)    .     ,    .
//MIN(x_1,..,x_N)      
//IF(boolean,result1(true),result2(false))    ,      Delphi.
//            :  -  ,   - .
//             ,     ,   - .

//
PI=3.14159265358979
GOLD=(sqrt(5)-1)/2=0.618033988749895  " " x/y=y/(x+y)
AU=1.496e9  ( ,      )
MS=1.989e30  -  ,
RS=6.96e8  -  ,
LS=3.826e26 -  ,
L0=2.97e28  -       Mbol=0,
CC=2.997925e8 /c -   (   )
GG=6.670e-11 -  
HH=6.6262e-34 * -  
ME=9.10956e-31  -  
MP=1.672661e-27  -   {proton's mass}
SB=5.66956e-8  -
PC=3.0857e16  -  - ,       ,   1  .
KK=1.38062e-23 /,  
RR=8.3143 /(*),  .


// -
//  (, , , ,   )
//       (, , , , ,  , , , , , , ,  .)
//     !     x^y
//      -    Factorize,    LCD (largest common divisor),    (smallest common)

//Enjoy!


     :

{     (     , 
     )

    ,     ,    
        ,    -
      .       
   ,        . 
      ""  "".

        (multiplier).  
   , ,     .  ,
     ,   (addend). 
   ,    -  (expression).  , 
     ,      "" 
     "",      -   .
    ,     .   
    .  ,      
   "  ".     (, ),  
      .     ,  
   ,       ,   
    .     ,    
           ,
    -    ,     -  
    (..    ). ,      
    ,         :
        .

      - P  Integer.     
     ,     .   
         .

       Multiplier,    . 
    ,     P ,   
    (, ...)  ,   .  
    Addend  ,  -  Expr  .  Func
        .

         . , 
       ,   (,       
   ).      Variables.

        .   .  
      .

        -  PI.      ,  
   ,   ,  .

      Addend.     .  
        .      Multiplier,
          P   
     .  ,      .
    ,        .   -
      .     .  
    Expr.

         if,   
   .      A#B  A%B%C,  
   '#'   '<', '>', '=', '>=', '<=', '<>',   '%' - '<'  '<='. A, B  C -
    .      BoolExpr.

          .  
        CalcStr.      , 
      .       
     P    S,      
      Length(S)+1,   S[P]   .   
     ,    ,  , 
   ,   " ".   Expr 
     CalcStr,        
     .

     ,        
     ,  , ,    . 
           , 
    , ,  'x*x*x'    '1*x*x+x*(1*x+x*1)'. ,
   , ,    .

        -     
   .    , ,   , 
             
    .      -   ,
     :          Delphi 3.0. 
           Delphi,  ,
   ,  .        Delphi,
           
     .   -   .

                                                       , 

}

