//	＜インディケータ＞
//     売買タイミングを矢印で示す
//-------------------------------------
#import "shared_memory.dll"
   double set_a();
   double write_a(double,int);
   double read_a(int);
   double close_a();
#import
//------
#property indicator_chart_window	//チャート上に描画する
//--------------------------------------
int init()
  {
   set_a();
   //
   return(0);
  }
//-------------------------------------
int deinit()
  {
   close_a();
   ObjectsDeleteAll(0);
   return(0);
  }
//-------------------------------------
int start()
  {
 //
    ObjectsDeleteAll(0);
   //
	//int limit = Bars-IndicatorCounted();
      
   //for(int i=Bars-1000;i>=0;i--)//OK
   //for(int i=0;i<=Bars-1000;i++)//OK
   int up_c=1,down_c=1;
   
   for(int i=1000;i>=0;i--)//OK
   {
		//
		if(read_a(i)==+1.0)
		{
			//Up_arrow
			string up_a=up_c;
			ObjectCreate("up_arrow"+up_a,OBJ_ARROW,0,Time[i],(Low[i]-0.02));
			//ObjectCreate("up_arrow"+up_a,OBJ_ARROW,0,0,0);
			ObjectSet("up_arrow"+up_a,OBJPROP_ARROWCODE,SYMBOL_ARROWUP);
	      ObjectSet("up_arrow"+up_a,OBJPROP_COLOR,Green);
         ObjectSet("up_arrow"+up_a,OBJPROP_WIDTH,2);
         //ObjectMove("up_arrow"+up_a,0,Time[i],(Low[i]-0.02));
         up_c=up_c+1;
         //
		}
		else if(read_a(i)==-1.0)
		{
			//Down_arrow
			string down_a=down_c;
			ObjectCreate("down_arrow"+down_a,OBJ_ARROW,0,Time[i],(High[i]+0.04));
			//ObjectCreate("down_arrow"+down_a,OBJ_ARROW,0,0,0);			
			ObjectSet("down_arrow"+down_a,OBJPROP_ARROWCODE,SYMBOL_ARROWDOWN);
	      ObjectSet("down_arrow"+down_a,OBJPROP_COLOR,Red);
         ObjectSet("down_arrow"+down_a,OBJPROP_WIDTH,2);
         //ObjectMove("down_arrow"+down_a,0,Time[i],(High[i]+0.02));           
         down_c=down_c+1;
         //
		}else if(read_a(i)==0.0)
		{
		 //
		}
	//
	}
    //
   return(0);
  }