Camarilla Pivot ALL bars

//+------------------------------------------------------------------+
//|                                                                    +
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+ 


//#####################################################################
int init()
{
//----
//----
   return(0);
  }
//#############################################################################

int start()
  {

double HiVal,LoVal;
double err,tmp;
double ObjVal;
int cnt;
int Type;
//################################################################################
  if(Bars<25){Print("bars less than 100"); return(0); }

//################################################################################
ObjectDelete("CamH4");
ObjectDelete("CamH3");
ObjectDelete("CamL3");
ObjectDelete("CamL4");


for(cnt=0;cnt<200;cnt++)
{
double L3,L4,H3,H4;

  H4 =((iHigh(NULL,1440,cnt+1)-iLow(NULL,1440,cnt+1))*(1.1/2))+iClose(NULL,1440,cnt+1);
  H3 =((iHigh(NULL,1440,cnt+1)-iLow(NULL,1440,cnt+1))*(1.1/4))+iClose(NULL,1440,cnt+1);
  L3 =iClose(NULL,1440,cnt+1)-((iHigh(NULL,1440,cnt+1)-iLow(NULL,1440,cnt+1))*(1.1/4));
  L4 =iClose(NULL,1440,cnt+1)-((iHigh(NULL,1440,cnt+1)-iLow(NULL,1440,cnt+1))*(1.1/2));
 
   ObjectCreate("CamH3"+cnt, OBJ_ARROW, 0, Time[cnt],H3);
   ObjectSet("CamH3"+cnt,6,White);
   ObjectSet("CamH3"+cnt,14,4);

   ObjectCreate("CamH4"+cnt, OBJ_ARROW, 0, Time[cnt],H4);
   ObjectSet("CamH4"+cnt,6,White);
   ObjectSet("CamH4"+cnt,14,4);

   ObjectCreate("CamL3"+cnt, OBJ_ARROW, 0, Time[cnt],L3);
   ObjectSet("CamL3"+cnt,6,White);
   ObjectSet("CamL3"+cnt,14,4);

   ObjectCreate("CamL4"+cnt, OBJ_ARROW, 0, Time[cnt],L4);
   ObjectSet("CamL4"+cnt,6,White);
   ObjectSet("CamL4"+cnt,14,4);

}




//############               End of PROGRAM                  #########################   
   return(0);
}


/*
AUDNZD
AUDJPY
AUDCAD
AUDUSD
CADJPY
CHFJPY
EURAUD
EURCAD
EURCHF
EURGBP
EURJPY
EURUSD
GBPJPY
GBPUSD
NZDUSD
USDCAD
USDCHF
USDJPY
USDMXN
GBPCHF


*/