Program CardTrickMagic2;

///////////////////////////////////////////////////////////////////////////
//  #sign:8 PM max: MAXBOX8: 6/11/2014 6:40:20 PM  PM 
//  Purpose: shows the diff seeing and believing with functions and procedure 
//  #path>C:\maXbook\maxbox3\mX3999\maxbox3\examples\
//  Lines of Code #locs:697
//  ref http://www.delphiforfun.org/Programs/oscilloscope.htm
///////////////////////////////////////////////////////////////////////////
//TODO: find out the performance of func or proc, #locs:697

        Function OpenProcess2(dwDesiredAccess: DWORD; bInheritHandle:BOOL;
                dwProcessId:DWORD): THandle; 
          External 'OpenProcess@kernel32.dll stdcall';
          
        procedure TForm1_setup1; forward;     
   
Const  
      SW = 'SW_SHOW';
      BITMAP = 'examples\citymax.bmp';
     
var
  year1, month1, day1: word;
  dbform: TForm;  
  //myappevent: TApplicationEvents;
   

 procedure ProcedureSolution;    
 var mystrings: TStrings;
 begin
   mystrings:= TStringlist.Create;
   getVisibleWindows(mystrings)
   showMessage(mystrings.text)
   mystrings.Free;
 end;
    
 function FunctionSolution: TStrings;    
 begin
   result:= getVisibleWindowsF(TStringlist.Create)
 end;
 
 
 procedure TKeyPairGenerator_Create;
 var
  TmpDir, fPassword: string;
  TmpFile: TSearchRec;
     fKeyLength: word;
    fPrivateKeyFile, fPublicKeyFile: TFileName;
    fSeedFile: TFileName;
begin
  fKeyLength:= 1024;
  fPassword:= '';             
  TmpDir:= GetEnvironmentVariable('TEMP');
  if FindFirst(TmpDir + '\*', faReadOnly and faHidden and faSysFile
    and faArchive) = 0 then
     // fSeedFile := TmpFile.Name;
     fSeedFile:= searchrecName;
  writeln('fseedfile is: '+fseedfile)
  FindClose;
end;

 function CheckFiletype2(const extension, filetype, description,
                               verb, serverapp: string): boolean;
 var
  reg: TRegistry;
  keystring, regdfile: string;
 begin
  reg := TRegistry.Create;
  try
    Result := False;
    reg.Rootkey := HKEY_CLASSES_ROOT;
    if not reg.OpenKey(extension, False) then
      Exit;
    reg.CloseKey;
    if not reg.OpenKey(filetype, False) then
      Exit;
    reg.closekey;
    keystring := Format('%s\shell\%s\command', [filetype, verb]);
    if not reg.OpenKey(keystring, False) then
      Exit;
    regdfile := reg.ReadString('');
    reg.CloseKey;
    if CompareText(regdfile, serverapp) <> 0 then
      Exit;
    Result := True;
  finally
    reg.free;
  end;
 end;
 
 //const KEY_READ = $20019;
{**** Or / Oder ****}
 procedure TForm1_TranspImage2(Sender: TObject);
 var OldBkMode: integer;
  mainwnd: THandle;
  mainwnd2: HWND;
  ak: PKOLChar;
  image1: TImage;
  //TC: TCopyDataStruct;
 begin
  with Image1.Picture.Bitmap do begin
    Canvas.Font.Color := clBlue;
    OldBkMode         := SetBkMode(Canvas.Handle, Ord(TRANSPARENT));
    Canvas.Font.Size  := 13;
    Canvas.TextOut(10, 10, 'Transparent Text!!');
    SetBkMode(Canvas.Handle, OldBkMode);
  end;
  //debug
  ak:= '0rt';
  ak:= 'maxform1';
  mainwnd2:= wFindWindow(ak, ak);
  mainwnd:= FindWindow('TMaxForm1','');
  //mainwnd2:= FindWindow(NIL, 'maxform1');
  wSendMessage(mainwnd2, WM_COPYDATA, mainwnd, 42);
  //wSetWindowText(mainwnd2, 'WM_COPYDATA');
  //ak:= 'thest'+#0;
  booleantoString(wSetWindowText(mainwnd, 'NIL'));
    wSetWindowText(mainwnd, ak);
end;


//unit U_PiCalc1;
 
 Var
   inpond, totshots:integer;  {Number in pond}
   Const radius2 = 0.25; {for radius squared}

   Procedure showPIstats;
   var r: single;
   begin
     writeln('Pond Hits: '+inttostr(inpond));
     writeln(' Total shots: '+inttostr(totshots));
     if totshots>0 then r:= inpond/totshots else r:=0;
     writeln('Ratio of Pond hits to shots '+floattostr(r));
     writeln('PI estimate: '+ floattostr(4*r));
   end;


//Pythagorean theorem for distance,x2+y2=d2, so point is in pond if x2+y2<.25.
   Procedure TFrm_PIShootBtnClick(Sender: TObject);
   var i: integer;
       x,y: double;
   begin
   //if strtoint(shotsEdt.text)<high(i) then
     if 50000<high(i) then   
     for i:= 1 to 50000 do Begin
       x:= frandom- 0.5;  {get random numbers in range -0.5 to + 0.5}
       y:= frandom- 0.5;
       if x*x+y*y < radius2 then inc(inpond); {distance from center is < 0.5}
       {Note: no need to take square root, just compare dist squared to 0.25}
       inc(totshots);
     end else showMessage('Max shots exceeded');
     showPIstats;
   end;
   
   procedure TFrm_PIResetBtnClick(Sender: TObject);
   begin
     inpond:= 0;  {Number in pond}
     totshots:= 0; {Total number}
     Randomize;
     //ShowPIstats;
   end;
   
   //*ttimer*/

// form builder vars of cards  ***************************************//
   
var aFrm: TForm;
    panel1, Panel2, panel3: TPanel;
    label1, label2, label4, Label3, label7, label8, label5, label6, label9: TLabel;
    LiarLbl, Thankslbl: TLabel;
    Next2Btn, ReplayBtn, ExitBtn, Next1Btn: TButton;
    AnswerGrp: TRadioGroup;
    progBar: TProgressBar;
    //cards1:array[1..6] of TCard; {Cards for 1st screen}
    //cards2:array[1..5] of TCard; {cards for last screen}
    cards0: array[0..11] of TCard;
    index1, index2: array[0..5] of integer; {pointers to cards to display}
    
    
{********************* MakeCard ****************}
function TForm1_makecard(L,T:Integer; newvalue:TCardValue; newSuit:TShortSuit):TCard;
{create and set position for a card}
begin
  result:=TCard.create(afrm);
  with result do begin
    parent:= afrm;
    top:=T;
    left:=L;
    setcard(newvalue,newSuit);
  end;
end;

procedure TForm1_FormActivate(Sender: TObject);
{Initialize cards}
var
  i:integer;
  suit:TShortSuit;
  suit1: byte;
  start,starty:integer;
begin           
  //makecaption('Technology Breakthrough!',#169+' 2002, G.Darby, delphiforfun.org',self);
   start:=100;
   starty:=325;
  for i:= 11 to 13 do 
    //suit:= low(suit) to high(suit) do
     for suit1:= 0 to 3 do begin
     //suit:= TShortSuit((suit1)); //CardC;
     cards0[4*(i-11)+suit1]:= TForm1_makecard(start,starty,i,TShortSuit(suit1));
   end;  
  // cards[4*(i-11) + ord(suit)] :=makecard(start,starty,i,suit);
  (*
  cards1[2]:=mak ecard(start+incr,starty,11,CardC);
  cards1[3]:=makecard(start+2*incr,starty,13,S);
  cards1[4]:=makecard(start+3*incr,starty,12,D);
  cards1[5]:=makecard(start+4*incr,starty,12,C);
  cards1[6]:=makecard(start+5*incr,starty,11,D);
  start:=150; incr:=75;
  cards2[1]:=makecard(start,starty, 12,H);
  cards2[2]:=makecard(start+incr,starty, 13,C);
  cards2[3]:=makecard(start+2*incr, starty,11,H);
  cards2[4]:=makecard(start+3*incr, starty, 12,S);
  cards2[5]:=makecard(start+4*incr, starty, 13,D);
  *)
  TForm1_setup1;
end;


{******************** Setup1 ******************}
procedure TForm1_setup1;
{setup 1st panel, called by formactivate and by Replay button}
var
  i,j:integer;
  n,k:integer;
  start,starty,incr:integer;
begin
  {assign one J,Q,K of each color for the original 6 cards}
  {assign 5 of the 6 remaining cards to th 2nd display set}
  {shuffle the 12 posible card nbrs}
  for i:= 0 to 2 do begin
    index1[2*i]:=4*i+2*random(2);
    index1[2*i+1]:=4*i+1+ 2*random(2);
    if index1[2*i]=4*i then index2[2*i]:=4*i+2 else index2[2*i]:=4*i;
    if index1[2*i+1]=4*i+1 then index2[2*i+1]:=4*i+3 else index2[2*i+1]:=4*i+1;
  end;

  for j:= 1 to 10 do
  for i:= 0 to 5 do begin
    k:=random(6);
    n:=index1[k];
    index1[k]:=index1[i];
    index1[i]:=n;
    k:=random(6);
    n:=index2[k];
    index2[k]:=index2[i];
    index2[i]:=n;
  end;
  start:=100;
  incr:=75;
  starty:=325;
  for i:=0 to 5 do
  with cards0[index1[i]] do begin
    left:= start+i*incr;
    top:=starty;
    visible:=true;
  end;
  start:=150;
  incr:=75;
  for i:=0 to 5 do
  with cards0[index2[i]] do begin
    left:= start+i*incr;
    top:=starty;
    visible:=false;
  end;
  panel1.bringtofront;
end;
    
procedure TForm1_Next1BtnClick(Sender: TObject);
var i:integer;
begin
  for i:= 0 to 5 do cards0[index1[i]].visible:=false;
   progbar.Position:= 4;
   panel2.bringtofront;
   Voice('Speak again and then press the Next button below');
end;

procedure TForm1_Next2BtnClick(Sender: TObject);
var i:integer;
begin
  for i:= 0 to 4 do cards0[index2[i]].visible:=true;
  answergrp.visible:=true;
  answergrp.itemindex:=-1;
  thankslbl.visible:=false;
  liarlbl.visible:=false;  //add bug in U_CardTrick2.pas 
  progbar.Position:= 14;
  panel3.bringtofront;
end;

procedure TForm1_ReplayBtnClick(Sender: TObject);
begin  
   TForm1_Setup1; 
   progbar.Position:= 4;
end;

procedure TForm1_Button4Click(Sender: TObject);
begin  afrm.close;  end;

procedure TForm1_ExitBtnClick(Sender: TObject);
begin  afrm.close;  end;

procedure TForm1_AnswerGrpClick(Sender: TObject);
begin
  answergrp.visible:=false;
  if Answergrp.itemindex=0  {show one of the response labels}
  then begin Thankslbl.visible:=true 
     progbar.Position:= 16;
  end
  else begin Liarlbl.visible:=true;
     progbar.Position:= 2;
  end
 // Thankslbl.visible:=true;
end;

   
  Procedure loadCardForm;
  var msd:  THelpEvent; //TPopupMode  //TTileMode  //TDefaultMonitor//TShowAction;
begin
  aFrm:= TForm.Create(self);
  with aFrm do begin
   Caption:= '********** Technology breakthrough! mX Voice Recognition ***********'; 
    SetBounds(134,95, 680, 540);
    Color:= clBtnFace;
    Font.Style:= []
     Font.Color:= clWindowText
    OldCreateOrder:= False
   //OnActivate = FormActivate
    Position:= poScreenCenter;
    FormStyle:= fsStayonTop;
    //SetDesignVisible(true);
    color:= clgreen;
    Show;
    //MouseWheelHandler
    //showbitmap(GetFormImage);
  end;
 // TForm1_FormActivate(self);
  Panel2:=TPanel.Create(afrm)                       
  with panel2 do begin
    parent:= aFrm;
    setBounds(12,8,649,305)
    parentbackground:= false;
    Color:= clYellow
    TabOrder:= 1
  end;  
    Next2Btn:= TButton.create(afrm)
      with Next2Btn do begin
      parent:= panel2;
      setBounds(287,248,75,32)
      Caption:= 'Next'
      Font.Height:= -19
      Font.Name:= 'Arial'
      Font.Style:= [fsItalic]
      ParentFont:= False
      TabOrder:= 0
      OnClick:= @TForm1_Next2BtnClick
    end;
    Label3:= TLabel.create(afrm)
    with label3 do begin
      parent:= panel2;
      setBounds(16,16,593,57)
      AutoSize:= False;
      Caption:= 
        'I'#39'm sorry  - that was garbled, can you please speak a little lou' +
        'der and speak three distinct words describing your card.'
      Font.Charset:= DEFAULT_CHARSET
      Font.Color:= clMaroon
      Font.Height:= -19
      Font.Name:= 'Arial'
      Font.Style:= [fsItalic]
      ParentFont:= False
      WordWrap:= True
    end;
    Label7:= TLabel.create(afrm)
    with label7 do begin
      parent:= panel2;
      setBounds(16,72,593,81)
      AutoSize:= False;
      Caption:= 'The first word should be "King", "Queen" or "Jack";  the second ' +
        'word should be "of";  and the third word should be "Hearts",  "D' +
        'iamonds",  "Spades" or "Clubs".'
      Font.Color:= clMaroon
      Font.Height:= -19
      Font.Style:= [fsItalic]
      ParentFont:= False
      WordWrap:= True
    end;
   Label8:= TLabel.create(afrm)
    with label8 do begin
      parent:= panel2;
      setBounds(24,168,437,23)
      Caption:=  'Speak again and then press the Next button below'
       Font.Charset:= DEFAULT_CHARSET
      Font.Color:= clMaroon
      Font.Height:= -19
      Font.Name:= 'Arial'
      Font.Style:= [fsItalic]
      ParentFont:= False
    end;       
    Next2Btn:= TButton.create(afrm)
      with Next2Btn do begin
      parent:= panel2;
      setBounds(287,248,75,32)
      Caption:= 'Next'
      Font.Height:= -19
      Font.Name:= 'Arial'
      Font.Style:= [fsItalic]
      ParentFont:= False
      TabOrder:= 0
      OnClick:= @TForm1_Next2BtnClick
    end;
  
  Panel3:=TPanel.Create(afrm)                       
  with panel3 do begin
    parent:= aFrm;
    setBounds(12,8,649,305)
    parentbackground:= false;
    Color:= clYellow;
    TabOrder:= 2
  end;  
    Label5:= TLabel.create(afrm)
    with label5 do begin
      parent:= panel3;
      setBounds(24,24,73,33)
      AutoSize:= False;
      Caption:= 'I got it!'
      Font.Charset:= DEFAULT_CHARSET
      Font.Color:= clMaroon
      Font.Height:= -19
      Font.Name:= 'Arial'
      Font.Style:= [fsItalic]
      ParentFont:= False
      WordWrap:= True
    end;
    Label6:= TLabel.create(afrm)
    with label6 do begin
      parent:= panel3;
      setBounds(24,56,505,33)
      AutoSize:= False;
      Caption:= 'Your card has been removed from the display!'
       Font.Charset:= DEFAULT_CHARSET
      Font.Color:= clMaroon
      Font.Height:= -19
      Font.Name:= 'Arial'
      Font.Style:= [fsItalic]
      ParentFont:= False
      WordWrap:= True
    end;
    Label9:= TLabel.create(afrm)
    with label9 do begin
      parent:= panel3;
      setBounds(24,88,505,73)
          AutoSize:= False;
      Caption:= 'Please help us improved the accuracy of this program by register' +
        'ing whether the program answer was correct or incorrect'
      Font.Charset:= DEFAULT_CHARSET
      Font.Color:= clMaroon
      Font.Height:= -19
      Font.Name:= 'Arial'
      Font.Style:= [fsItalic]
      ParentFont:= False
      WordWrap:= True
    end;
    Thankslbl:= TLabel.create(afrm)
      with thankslbl do begin
      parent:= panel3;
      setBounds(104,184,70,23)
      Caption:= 'Thanks!'
      Font.Color:= clGreen
      Font.Height:= -19
      Font.Name:= 'Arial'
      Font.Style:= [fsItalic]
      ParentFont:= False
    end;
     LiarLbl:= TLabel.create(afrm)
      with liarlbl do begin
      parent:= panel3;
      setBounds(290,184,130,23)
      Caption:= 'I don'#39't think so!'
      Font.Color:= clGreen
      Font.Height:= -19
      Font.Name:= 'Arial'
      Font.Style:= [fsItalic]
      ParentFont:= False
    end;
    AnswerGrp:= TRadioGroup.Create(afrm)
    with answerGrp do begin
      parent:= panel3;
      setBounds(110,168,417,59)
      Columns:= 2
      Font.Height:= -19
      Font.Name:= 'Arial'
      Font.Style:= [fsItalic]
      Items.add(' Correct')
      items.add(' Incorrect')
      ParentFont:= False
      TabOrder:= 2
      OnClick:= @TForm1_AnswerGrpClick
    end;
    ReplayBtn:= TButton.create(afrm)
      with Next2Btn do begin
      parent:= panel3;
      setBounds(147,250,123,32)
      Caption:= 'Play Again'
      Font.Charset:= DEFAULT_CHARSET
      Font.Color:= clWindowText
      Font.Height:= -19
      Font.Name:= 'Arial'
      Font.Style:= [fsItalic]
      ParentFont:= False
      TabOrder:= 0
      OnClick:= @TForm1_ReplayBtnClick;
    end;
    ExitBtn:= TButton.create(afrm)
      with ExitBtn do begin
      parent:= panel3;
      setBounds(427,250,75,32)
      Caption:= '&Close'
      Font.Style:= [fsItalic]
      Font.Height:= -19
      ParentFont:= False
      TabOrder:= 1
      OnClick:= @TForm1_ExitBtnClick
    end;
  
  Panel1:=TPanel.Create(afrm)                       
  with panel1 do begin
    parent:= aFrm;
    setBounds(12,8,649,305)
    parentbackground:= false;
    Color:= clYellow
    TabOrder:= 0
  end;  
    Label1:= TLabel.create(afrm)
    with label1 do begin
      parent:= panel1;
      setBounds(32,16,593,73)
      AutoSize:= False;
      Caption:= 'Due to recent advances, is now possible to sense the vibrations ' +
        'caused by the human voice as the sound impacts the speakers atta' +
        'ched to your PC.  '
      Font.Charset:= DEFAULT_CHARSET
      Font.Color:= clMaroon
      Font.Height:= -19
      Font.Name:= 'Arial'
      Font.Style:= [fsItalic]
      ParentFont:= False
      WordWrap:= True
    end;
    Label2:= TLabel.create(afrm)
    with label2 do begin
      parent:= panel1;
      setBounds(32,96,593,105)
      AutoSize:= False;
      Caption:= 
        'To illustrate this "magical" effect,  try the following :  Selec' +
        't a card from those shown below.  Do NOT point to it with the mo' +
        'use.  Instead speak the name of the card slowly and clearly towa' +
        'rds your speakers.  Then click the "Next"  button. '
      Font.Color:= clMaroon
      Font.Height:= -19
      Font.Name:= 'Arial'
      Font.Style:= [fsItalic]
      ParentFont:= False
      WordWrap:= True
    end;
    Label4:= TLabel.create(afrm)
    with label4 do begin
      parent:= panel1;
      AutoSize:= False
      setBounds(32,200,553,57)
     Caption:= 'The program will attempt to recognize the named card and remove ' +
        'it from the display.'
      Font.Color:= clMaroon
      Font.Height:= -19
      Font.Name:= 'Arial'
      Font.Style:= [fsItalic]
      ParentFont:= False
      WordWrap:= True
    end;
    Next1Btn:= TButton.create(afrm)
      with Next1Btn do begin
      parent:= panel1;
      setBounds(287,264,75,32)
      Caption:= 'Next'
      Font.Height:= -19
      Font.Name:= 'Arial'
      Font.Style:= [fsItalic]
      ParentFont:= False
      TabOrder:= 0
      OnClick:= @TForm1_Next1BtnClick
    end;
   TForm1_FormActivate(self);
 
 { with TBitBtn.Create(aFrm) do begin
    Parent:= aFrm;
    setbounds(540, 520,150, 55);
    caption:= '&Delete Bitmaps';
    font.size:= 12;
    glyph.LoadFromResourceName(getHINSTANCE,'TAFFILEVIEWER');  
    mXButton(05,05,width, height,12,12,handle);
    onClick:= @TFrm_DeleteClick;
  end;
  end; }
  progBar:= TProgressBar.create(aFrm);
  with progBar do begin
    parent:= aFrm;
    //setBounds(20,140,550,25);
    align:= alBottom;
    Smooth:= True;
    TabOrder:= 4;
    Min:= 0; Max:= 16;
    //Frequency:= 10;
    Position:= 4;
    //OnChange:= @TFrm_trackSpeedChange;
  end;
  {statbar:= TStatusBar.Create(aFrm);
  with statbar do begin
    parent:= aFrm;
    showhint:= true;
    hint:= 'this is a Graphic Split Converter Plotter';
    Panels.add;
      panels.items[0].width:= 500;
      panels.items[0].text:= 'Graphic Plot';
    Panels.add;
      panels.items[1].width:= 350;
      panels.items[1].text:= 'Split mode Resolution last set';
  end;
   with TStaticText.create(afrm) do begin
    setBounds(20,100,200,30);
    Cursor:= crHandPoint;
    parent:= aFrm; //frmmon;
    Color:= clRed;
    Caption:= 'http://max.kleiner.com/images/texturemap.jpg ';
    Font.Color:= clBlue;
    //Font.Height:= 10
    Font.Style:= [fsUnderline]
    OnClick:= @Tfrm_StaticText1Click;
  end; }
 end;
  

//main script app
  var md: TDynCardinalArray;
  //amix: TAudioMixer;
  //ain: TWaveIn; 
begin
  //the the date from now to compare with file date
  decodeDate(date, year1, month1, day1) 
  //Beep;
  Writeln('Diff of Function or Procedure - silent except out of scope');
   // ProcedureSolution; 
   // ShowMessage(FunctionSolution.text);
   // ShowMessage(GetVisibleWindowsF(TStringlist.Create).text);
      //GEO Stationary Satellite
    //geostationary satellite
    maxCalcF('((1/27.5)^2)^(1/3)*384E3-6371');
    //shorten test
    maxCalcF('SQRT(1/27.5)/2*(384E3-6371)');
    //more precise
    maxCalcF('((1/27.32)^2)^(1/3)*384E3-6371');
    //just the track
    maxCalcF('((1/27.32)^2)^(1/3)*3.8E8');
    //RS3 = [3.8x108]3/27.32 = 7.36x1022 and so:
    //RS = 4.19x107 m = 41 900 km 
    maxCalcF('PI*(0.5^2)');
    maxCalcF('PI*0.25');
  
    {if FileExists(Exepath+'Examples\geosatellite.png') then
      OpenDoc(Exepath+'Examples\geosatellite.png');}
      
    //  TKeyPairGenerator_Create;
    // writeln(GetEnvironmentString)
    //{writeln('sha1 of zip: '+ sha1('C:\maXbook\maxbox3\mX3999\maxbox3.zip'));
    //writeln('GetMDACVersion2 '+GetMDACVersion2);
    //writeln('GetMDACVersion2 '+GetMDACVersion2);
   // TFrm_PIResetBtnClick(self);
   // TFrm_PIShootBtnClick(self);

     maXform1.Oscilloscope1Click(Self);
     //oscfrmMain:= TOscfrmMain.Create(self);
     {with TOscfrmMain.Create(self) do begin
        btnrun.click;
        Caption:= 'this is a technology Card Innovation! second one';
        Show;
      end;}  

     loadCardForm;
End.

ref:
http://www.delphiforfun.org/Programs/oscilloscope.htm
http://www.delphiforfun.org/Programs/cardtrick.htm


Problem Description

Select a card from the displayed playing cards, but do NOT point the mouse to it.  Instead speak the name of the selected card into your speakers, and this program will remove it from the display.  Accuracy has been proven to be nearly 100%!   Download the the program and try it for yourself.  
Background & Techniques

Due to recent advances, it's now possible to sense the vibrations caused by the human voice as the sound impacts the speakers attached to your PC.   The induced currents feed back through the sound card and can be detected.  Any output sounds are then subtracted and the result fed into a small speech-to-text digital signal processor capable of recognizing a limited vocabulary. 

Or ---  it might just be a trick.

The graphical Card component introduced back in Cards #2 is used to create the card images.

The panels used for displays overlap each other on the screen.  At design time you can right click and select "Send to back" to view  the hidden panels.  

I'm sure you will understand that I really can't discuss more about the program here without revealing trade secrets.   You'll just have to check it out for yourself.  

A geostationary satellite is an earth-orbiting satellite, placed at an altitude of approximately
  35,800 kilometers (22,300 miles) directly over the equator, that revolves in the same direction the earth rotates (west to east). At this altitude, one orbit takes 24 hours, the same length of time as the earth requires to rotate once on its axis. The term geostationary comes from the fact that such a satellite appears nearly stationary in the sky as seen by a ground-based observer. BGAN, the new global mobile communications network, uses geostationary satellites.
  
  A Geosynchonous Orbit (GEO) takes a satellite around the Earth at a rate of once per day, keeping it roughly in the same area over the ground. 
A Geostationary Orbit (GSO) is a geosynchronous orbit with an inclination of zero, meaning, it lies on the equator.

All geostationary satellites are geosynchronous. Not all geosynchronous satellites are geostationary.

Example problems
The Moon has an orbit radius of 3.8x108 m and a period of 27.3 days. Use this information to calculate the radius (RS) of the orbit of a geostationary satellite.
Use: T2/R3 = constant      Period of satellite = 1 day      therefore:

RS3 = [3.8x108]3/27.32 = 7.36x1022 and so:
RS = 4.19x107 m = 41 900 km 


Hab ich das was entdeckt oder gibt es diese Formel schon:
 
Sie berechnet als 3. keplersche Gesetz die Höhe eines geostationären Satelliten:
 
(1/27.5)^2 = (x/384000)^3       ca. 42000 km - 6300 ~ 36000 km
 
die Idee ist den Mond als Bezugsgrösse zu nehmen und ihn 1/27 als Stationär in Relation zum unbekannten x zu nehmen
 
und dann in der maXbox auflösen
 
maxCalcF('((1/27.32)^2)^(1/3)*384E3-6371');
 
>>>35961.8421987704



Doc:
Functional programming

From Wikipedia, the free encyclopedia
For subroutine-oriented programming, see Procedural programming.
Programming paradigms

    Action
    Agent-oriented
    Aspect-oriented
    Automata-based
    Concurrent computing
        Relativistic programming
    Data-driven
    Declarative (contrast: Imperative)
        Constraint
        Dataflow
            Flow-based
            Cell-oriented (spreadsheets)
            Reactive
        Functional
            Functional logic
        Logic
            Abductive logic
            Answer set
            Constraint logic
            Functional logic
            Inductive logic
    End-user programming
    Event-driven
        Service-oriented
        Time-driven
    Expression-oriented
    Feature-oriented
    Function-level (contrast: Value-level)
    Generic
    Imperative (contrast: Declarative)
        Procedural
    Language-oriented
        Natural language programming
        Discipline-specific
        Domain-specific
        Grammar-oriented
            Dialecting
        Intentional
    Metaprogramming
        Automatic
        Reflective
            Attribute-oriented
        Homoiconic
        Template
            Policy-based
    Non-structured (contrast: Structured)
        Array
    Nondeterministic
    Parallel computing
        Process-oriented
    Point-free style
        Concatenative
    Semantic
    Structured (contrast: Non-structured)
        Block-structured
        Modular (contrast: Monolithic)
        Object-oriented (OOP)
            By separation of concerns:
                Aspect-oriented
                Role-oriented
                Subject-oriented
            Class-based
            Prototype-based
        Recursive
    Value-level (contrast: Function-level)
    Probabilistic
    Concept

In computer science, functional programming is a programming paradigm, a style of building the structure and elements of computer programs, that treats computation as the evaluation of mathematical functions and avoids state and mutable data. Functional programming emphasizes functions that produce results that depend only on their inputs and not on the program state—i.e. pure mathematical functions. It is a declarative programming paradigm, which means programming is done with expressions. In functional code, the output value of a function depends only on the arguments that are input to the function, so calling a function f twice with the same value for an argument x will produce the same result f(x) both times. Eliminating side effects, i.e. changes in state that do not depend on the function inputs, can make it much easier to understand and predict the behavior of a program, which is one of the key motivations for the development of functional programming.

Functional programming has its roots in lambda calculus, a formal system developed in the 1930s to investigate computability, the Entscheidungsproblem, function definition, function application, and recursion. Many functional programming languages can be viewed as elaborations on the lambda calculus, where computation is treated as the evaluation of mathematical functions and avoids state and mutable data. In the other well known declarative programming paradigm, logic programming, relations are at the base of respective languages.[1] 

// code snippets


procedure TGraphic.LoadFromFile(const Filename: string);
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(Filename, fmOpenRead or fmShareDenyWrite);
  try
    LoadFromStream(Stream); //virtual abstract
  finally
    Stream.Free;
  end;
end;

procedure TBitmap.LoadFromStream(Stream: TStream);
begin
  ReadStream(Stream, Stream.Size - Stream.Position);
end;


procedure TBitmap.ReadStream(Stream: TStream; Size: Longint);
var
  Bmf: TBitmapFileHeader;
  DIB: TDIBSection;
begin
  FreeContext;
  if Size = 0 then
  begin
    FillChar(DIB, sizeof(DIB), 0);
    NewImage(0, 0, DIB, False);
  end
  else
  begin
    Stream.ReadBuffer(Bmf, sizeof(Bmf));
    if Bmf.bfType <> $4D42 then InvalidBitmap;
    ReadDIB(Stream, Size - sizeof(Bmf), @Bmf);
  end;
end;
procedure InvalidGraphic(Str: PResStringRec);
begin
  raise EInvalidGraphic.CreateRes(Str);
end;

procedure InvalidBitmap; 
begin
  InvalidGraphic(@SInvalidBitmap);
end;

//sysutils!
{ Raise abort exception }

procedure Abort;

  function ReturnAddr: Pointer;
  asm
          MOV     EAX,[EBP + 4]
  end;

begin
  raise EAbort.CreateRes(@SOperationAborted) at ReturnAddr;
end;

  SOperationAborted = 'Operation aborted';

{ Raise out of memory exception }

procedure OutOfMemoryError;
begin
  raise OutOfMemory;
end;

{ Exception class }

constructor Exception.Create(const Msg: string);
begin
  FMessage := Msg;
end;


http://pages.cs.wisc.edu/~rkennedy/exception-messages
Why do I continue getting error messages even after I have written an exception handler?


In its default settings, the Delphi IDE
notifies you whenever an exception occurs in your program, as in Figure
1. What’s important to realize is that at that point, none
of your program’s exception-handling code has run yet. It’s
all Delphi itself; its special status as a debugger allows it to get
first notification of any exception in your program, even before your
program knows about it.

  Exception
  
    Exception = class(TObject)
  private
    FMessage: string;
    FHelpContext: Integer;
  public
    constructor Create(const Msg: string);
    constructor CreateFmt(const Msg: string; const Args: array of const);
    constructor CreateRes(Ident: Integer); overload;
    constructor CreateRes(ResStringRec: PResStringRec); overload;
    constructor CreateResFmt(Ident: Integer; const Args: array of const); overload;
    constructor CreateResFmt(ResStringRec: PResStringRec; const Args: array of const); overload;
    constructor CreateHelp(const Msg: string; AHelpContext: Integer);
    constructor CreateFmtHelp(const Msg: string; const Args: array of const;
      AHelpContext: Integer);
    constructor CreateResHelp(Ident: Integer; AHelpContext: Integer); overload;
    constructor CreateResHelp(ResStringRec: PResStringRec; AHelpContext: Integer); overload;
    constructor CreateResFmtHelp(ResStringRec: PResStringRec; const Args: array of const;
      AHelpContext: Integer); overload;
    constructor CreateResFmtHelp(Ident: Integer; const Args: array of const;
      AHelpContext: Integer); overload;
    property HelpContext: Integer read FHelpContext write FHelpContext;
    property Message: string read FMessage write FMessage;
  end;


  {$IFDEF MSWINDOWS}
  { TIniFile - Encapsulates the Windows INI file interface
    (Get/SetPrivateProfileXXX functions) }

  TIniFile = class(TCustomIniFile)
  public
    destructor Destroy; override;
    function ReadString(const Section, Ident, Default: string): string; override;
    procedure WriteString(const Section, Ident, Value: String); override;
    procedure ReadSection(const Section: string; Strings: TStrings); override;
    procedure ReadSections(Strings: TStrings); override;
    procedure ReadSectionValues(const Section: string; Strings: TStrings); override;
    procedure EraseSection(const Section: string); override;
    procedure DeleteKey(const Section, Ident: String); override;
    procedure UpdateFile; override;
  end;
{$ELSE}
    TIniFile = class(TMemIniFile)
    public
      destructor Destroy; override;
    end;
{$ENDIF}

 with TColorDialog.Create(self) do try
    execute;
  finally
    free;
  end;    
 
Scan report of: 119439-maxbox3.zip

Ahnlab -
Avast -
AVG -
Avira -
Bitdefender -
Command W32/Hupigon.C.gen!Eldorado
Command (Online) W32/Hupigon.C.gen!Eldorado
Dr.Web -
Eset Nod32 -
Fortinet -
F-Prot W32/Hupigon.C.gen!Eldorado
G Data -
Ikarus -
K7 Computing -
Kaspersky -
Kaspersky (Online) -
McAfee -
McAfee (BETA) -
McAfee (Online) -
McAfee GW Edition (Online) -
Microsoft -
Norman -
Panda -
Panda (Online) -
QuickHeal Suspicious (warning)
Rising -
Sophos -
Sophos (Online) -
Symantec -
Symantec (BETA) -
ThreatTrack -
Total Defense -
Trend Micro -
Trend Micro (Cons.) -
Trend Micro (CPR) -
VBA32 -
VirusBuster -


chines signs of I-king als schnüre
fire water earth and air

___    - -   - -   ___
- -    ___   - -   ___
___    - -   - -   ___



The Future of" zeigt einen Ausblick wie sich alle Bereiche unseres Lebens und Wirtschaften durch neue Technologien entwickeln werden. Die Inspirations-Konferenz zeigt die Herausforderungen und Chancen auf die wir uns einzustellen haben.
09.00-09.40	Enhanced Human Devices - wie wir unsere Limiten überwinden
Daniel Niklaus, CEO, Netlive IT AG
09.40-10.15	Konsumverhalten in der Zukunft
Michael Konitzer, Publizist, Internet- & Medienberater
10.15-10.35	Kooperationsmodelle - ihre Organisation wird agil
Mirko Kleiner,Vice President Delivery, youngulture AG
11.00-11.30	Wenn Produkte zu Diensten werden
Stefan Zanetti, CEO qipp ag
11.30-12.00	Vertical Commerce - Wenn der Handel eliminiert und der Konsument zum Produzenten wird
Roger Basler, CEO, Unternehmens-Architekt.ch
13.15-13.40	Nanotechnologie: Vielmehr als nur ein nächster Schritt in der Miniaturisierung 
Dr. Pierangelo Gröning, Leiter Department „Moderne Materialien und Oberflächen“, Empa, Materials Science and Technology
13.40-14.00	Innovationsmotor Nanotechnologie
Prof. Dr. André Bernard, Institutsleiter MNT, Interstaatliche Hochschule für Technik Buchs NTB
14.10-15.00	Vom Schachcomputer und Routenplaner zur Personalisierten Medizin 
Dr. Eberhard Scheuer,CEO, eHealth Consulting GmbH und Dr. Sibylle Peuker, Senior User Experience Architect, Zeix AG
15.00-15.20	Energyie Tatsachen, Technologien, Lösungen
Dr. Henrik Nordborg, , Professor für Physik, HSR Hochschule für Technik Rapperswil
15.20-16.00	Technologien und Visionen für die Zukunft der Energie
Andreas Uthmann, Innovations- und Technologiemanager für Energielösungen
16.20-16.40	Neurone Netzwerke, wenn Computer wie unser Hirn denken
Ercüment Sönmez, Intelligence AG
16.40-17.10	Werden wir uns noch etwas zu sagen haben?
Dr. Christopher H. Müller, CEO, Die Ergonomen Usability AG

KEY_CREATE_LINK (0x0020)
	

Reserved for system use.

KEY_CREATE_SUB_KEY (0x0004)
	

Required to create a subkey of a registry key.

KEY_ENUMERATE_SUB_KEYS (0x0008)
	

Required to enumerate the subkeys of a registry key.

KEY_EXECUTE (0x20019)
	

Equivalent to KEY_READ.

KEY_NOTIFY (0x0010)
	

Required to request change notifications for a registry key or for subkeys of a registry key.

KEY_QUERY_VALUE (0x0001)
	

Required to query the values of a registry key.

KEY_READ (0x20019)
	

Combines the STANDARD_RIGHTS_READ, KEY_QUERY_VALUE, KEY_ENUMERATE_SUB_KEYS, and KEY_NOTIFY values.

KEY_SET_VALUE (0x0002)
	

Required to create, delete, or set a registry value.

KEY_WOW64_32KEY (0x0200)
	

Indicates that an application on 64-bit Windows should operate on the 32-bit registry view. This flag is ignored by 32-bit Windows. For more information, see Accessing an Alternate Registry View.

This flag must be combined using the OR operator with the other flags in this table that either query or access registry values.

Windows 2000:  This flag is not supported.

KEY_WOW64_64KEY (0x0100)
	

Indicates that an application on 64-bit Windows should operate on the 64-bit registry view. This flag is ignored by 32-bit Windows. For more information, see Accessing an Alternate Registry View.

This flag must be combined using the OR operator with the other flags in this table that either query or access registry values.

Windows 2000:  This flag is not supported.

KEY_WRITE (0x20006)
	

Combines the STANDARD_RIGHTS_WRITE, KEY_SET_VALUE, and KEY_CREATE_SUB_KEY access rights.


Background & Techniques

If we assume that the square is 1 mile on a side and the pond is 1 mile across, then the area of the square is 1 square mile.  The radius of the pond is  1/2 mile and its area is Pi*R2 or  0.25Pi.  If the shots are uniformly distributed over the area of the field then the ratio of shots in the pond to shots in the field is approximately the same as the ratio of the two areas (.25Pi/1 or just Pi/4).  So the best estimate of Pi is simply 4 times this ratio.    

The plan is to generate random numbers inside the field, and increment the inpond count if it is within 1/2 mile of the center of the pond. We can use the Pythagorean theorem to calculate the distance of our random points from the center of the field.

Computationally, we use the randomize function to start generating random numbers with different random values for each run.  Without randomize, the numbers generated will be random (actually called pseudo-random), but would be repeatable from run to run.  The random function returns a random number between 0 and 1 if called without parameters.  If we assume a coordinate system with origin at the center the field, we can subtract 1/2 from the random points and end up up x and y values between -1/2 and +1/2.  By the Pythagorean theorem for  distance, x2+y2=d2, so the point is in the pond if x2+y2<.25.

That's about it.  I initialized the two count fields using the constant declaration feature of Delphi, added a reset button to reset the counters at any time.  This allows multiple clicks on the Shoot! button to produce cumulative results - we should be able to see the estimates get close to Pi as the number of shots increases.

type
  TCardValue = 1..13;
  TCardSuit = (Spades,Diamonds,Clubs,Hearts);
  TShortSuit = (S,D,C,H);
  TDecks = (Standard1, Standard2, Fishes1, Fishes2,
           Beach, Leaves1, Leaves2, Robot,
           Roses, Shell, Castle, Hand);
  TCard = class(TGraphicControl)
  private
    FValue: TCardValue;
    FSuit: TCardSuit;
    FDeckType: TDecks;
    FShowDeck: Boolean;
    FRank: Integer;
    procedure WMSize(var Message: TWMSize); message WM_PAINT;
    procedure SetValue(Value : TCardValue);
    procedure SetSuit(Suit: TCardSuit);
    procedure SetShowDeck(ShowDeck: Boolean);
    procedure SetDeckType(DeckType: TDecks);
    procedure SetRank(Rank: Integer);
  protected
    property Height default 96;
    property Width default 71;
    procedure Paint; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure SetCard(CValue: Integer; CSuit: TShortSuit);
    procedure RandomCard;
    procedure Turn;
    function DifferentFrom(FromCard: TCard): Boolean;
  published
    property Value: TCardValue read FValue write SetValue;
    property Suit: TCardSuit read FSuit write SetSuit;
    property ShowDeck: Boolean read FShowDeck write SetShowDeck;
    property DeckType: TDecks read FDeckType write SetDeckType;
    property Rank: Integer read FRank write SetRank;
    property DragMode;
    property OnClick;
    property OnDblClick;
    property OnDragDrop;
    property OnDragOver;
    property OnEndDrag;
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
  end;
http://www.heise.de/developer/meldung/Studie-zur-Softwarequalitaet-Open-Source-schlaegt-proprietaer-2175954.html?wt_mc=nl.developer