#include <graph.h>
#include <conio.h>                                           
#include <math.h>
#include "ltdiagrm.h"

void main( void )
{ int i,j;         
  double R, P_alt, P_neu;

  _setvideomode( _VRES16COLOR ); 
  _registerfonts( "*.FON" );
  _setfont("t'modern'h10w8");

  LTDiagram* D1 = new LTDiagram();
  D1->SetFrame(  40,  40,   620,    440);
             //left, top, right, bottom
  D1->SetBorder(  1.9,   3.1,    0,  1.4);
              // xmin,  xmax, ymin, ymax
  D1->SetText("R","P", "Logistische Gleichung  ( P[n+1] - P[n] ) / P[n] = R * ( 1 - P[n] )");
             //X-Scale, Y-Scale,   Title
  D1->Draw(8,   //DrawColor (0-15)
          15,   //TextColor (0-15)
           8,   //ZeroColor (0-15)
        true,   //isGrid (true, false)
        true);  //isScaleText (true, false)             

  _setcolor(15); 
  for (i=40; i<=620; i++)
  { R = D1->RealX(i);
    P_alt=0.35;                 
    for (j=0; j<=100; j++)
    { if ((0<P_alt)&(P_alt<10))
      { P_neu = R*(1-P_alt)*P_alt+P_alt;
        P_alt = P_neu;   
      }  
    }
    for (j=0; j<=100; j++)
    { if ((0<P_alt)&(P_alt<10))
      { P_neu = R*(1-P_alt)*P_alt+P_alt;
        if ((0<P_alt)&(P_alt<1.4)) _setpixel(i, D1->ScreenY(P_alt));
        P_alt = P_neu;  
      }  
    }
  }

   _getch(); 
   delete D1;
   _unregisterfonts();
   _setvideomode( _DEFAULTMODE );
}