TACA0712 固定ロット！

最近はブログをおさぼりしていて申し訳ございませんm(__)m
ＴＡＣＡ０７１２の固定ロットを作ってみました！
目覚めてばたばたとつくりましたので、粗削りなところはご容赦ください。

#property copyright "Copyright 2016/7/10,TACA"
//#property icon"x.ico"  
#property description"AMSER UPDATE,Brog 250page,and 20000 memorial EA"
#property strict
datetime TimeOld;
int d,i,LB;
double LS,L,TSL,OTSL,SL,TP,B,NSL;
extern int MaxSpread=4;//最大許容スプレッド
extern int ALLPeriod=14;//RSI,Bands,Alligator,CCI,Forceの期間
extern double EntrySL=0.02;//1st S/L
extern double EntryTP=0.37;//1st T/P
extern double SecSL=0.01;//2nd S/L
extern int StDevPeriod=20;//標準偏差期間（3rd S/Lに使用）
extern double Lot=0.01;
double TACARSI(int TimeFrame){return(iRSI(NULL,TimeFrame,ALLPeriod,0,1));}

void OnTick(){B=Bid;TS();
L=AccountFreeMargin()/MarketInfo(Symbol(),32);LB=(int)MathFloor(L);LS=L-LB;
if(MarketInfo(Symbol(),13)<=MaxSpread){
if(Time[0]!=TimeOld){TimeOld=Time[0];
if(OrdersTotal()==0){
if(TACARSI(1)<37){if(TACARSI(5)<35){E(0);}}
if(TACARSI(1)>71){if(TACARSI(5)>67){E(1);}}}}}
d=(int)iBands("",0,ALLPeriod,2,0,0,1,1);
d=(int)iAlligator("",0,ALLPeriod,8,8,5,5,3,MODE_SMMA,PRICE_MEDIAN,1,1);
d=(int)iCCI("",0,ALLPeriod,0,1);
d=(int)iForce("",0,ALLPeriod,MODE_SMA,PRICE_CLOSE,2);
}

void E(int BoS){
if(BoS==0)
{TSL=Ask;SL=TSL-EntrySL;TP=TSL+EntryTP;}
else
{TSL=B;SL=TSL+EntrySL;TP=TSL-EntryTP;}
//for(i=0;i<LB;i++){d=OrderSend("",BoS,1,TSL,0,SL,TP,"",7,0,0);}
d=OrderSend("",BoS,Lot,TSL,0,SL,TP,"",7,0,0);}

void TS(){d=OrderSelect(0,0);
if(OrderType()==0)
{if(TSL<B){TSL=B;SL=TSL-SecSL;NSL=TSL-iStdDev("",0,StDevPeriod,0,0,0,0);if(NSL>SL){SL=NSL;}}}
else
{if(TSL>B){TSL=B;SL=TSL+SecSL;NSL=TSL+iStdDev("",0,StDevPeriod,0,0,0,0);if(NSL<SL){SL=NSL;}}}

if(TSL!=OTSL){OTSL=TSL;
for(i=OrdersTotal()-1;i>=0;i--)
{d=OrderSelect(i,0);d=OrderModify(OrderTicket(),OrderOpenPrice(),SL,TP,0,0);}}}