利多方舟（分析家用）源码

input:P1(5);
年:MA(CLOSE,26),color00ff00;
cp:="cpzb@cp";
cp,LINETHICK0;

DRAWICON(cp=1,l*0.95,4),ALIGN1;
DRAWICON(cp=9,h*1.05,5),ALIGN1;
DRAWtext(cp=1,l*0.925,'B'),coloryellow,ALIGN1;
DRAWtext(cp=9,h*1.085,'S'),colorgreen,ALIGN1;



dp:=if(c=INDEXC,0,1);
gj:=AMOUNT/v/100;
明日阻力:=l+(gj-l)+(c-l);
明日支撑:=l+(c-gj);
今日阻力:=REF(明日阻力 , 1);
今日支撑:=REF(明日支撑 , 1);
STICKLINE(DISPSTATUS=2 and dp=1 and c>=今日阻力,今日阻力,今日阻力,30,0),Color0000FF;
STICKLINE(DISPSTATUS=2 and dp=1  and c<今日阻力,今日阻力,今日阻力,30,0),Color00FF00;
STICKLINE(DISPSTATUS=2 and dp=1  and c>=今日支撑,今日支撑,今日支撑,30,0),ColorFF00FF;
STICKLINE(DISPSTATUS=2 and dp=1  and c<今日支撑,今日支撑,今日支撑,30,0),ColorFF0000;
if DISPSTATUS=2 then a:=BARPOS;
if DISPSTATUS=1 then b:=BARPOS;
d:=a-b;
e:=hhv(h,d);
DRAWTEXT(c>0 and dp=1  and DISPSTATUS=2, e*1.08,'-----------------------------------'),ColorFFFFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1  and DISPSTATUS=2 and c>=今日支撑, e*1.07,'今日支撑=：'+NUMTOSTRN(今日支撑 ,2 )+'                    '),ColorFF00FF,ALIGN2;
DRAWTEXT(c>0 and dp=1  and DISPSTATUS=2 and c<今日支撑, e*1.07,'今日支撑=：'+NUMTOSTRN(今日支撑 ,2 )+'                    '),ColorFF0000,ALIGN2;
DRAWTEXT(c>0 and dp=1  and DISPSTATUS=2 and c>=今日阻力, e*1.07,'今日阻力=：'+NUMTOSTRN(今日阻力 ,2 )),Color0000FF,ALIGN2;
DRAWTEXT(c>0 and dp=1  and DISPSTATUS=2 and c<今日阻力, e*1.07,'今日阻力=：'+NUMTOSTRN(今日阻力 ,2 )),Color00FF00,ALIGN2;
DRAWTEXT(c>0 and dp=1  and DISPSTATUS=2, e*1.04,'-----------------------------------'),ColorFFFFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1  and DISPSTATUS=2 and c>=明日支撑, e*1.05,'明日支撑=：'+NUMTOSTRN(明日支撑 ,2 )+'                    '),Color00FFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1  and DISPSTATUS=2 and c<明日支撑, e*1.05,'明日支撑=：'+NUMTOSTRN(明日支撑 ,2 )+'                    '),Color00FFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1  and DISPSTATUS=2 and c>=明日阻力, e*1.05,'明日阻力=：'+NUMTOSTRN(明日阻力 ,2 )),Color00FFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1  and DISPSTATUS=2 and c<明日阻力, e*1.05,'明日阻力=：'+NUMTOSTRN(明日阻力 ,2 )),Color00FFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1   and DISPSTATUS=2 and v>ref(v,1) and ma(v,5)>ref(ma(v,5),1),e*1.03,' 今日成交量大于昨日,且有继续增大趋势'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1   and DISPSTATUS=2 and v<ref(v,1) and ma(v,5)>ref(ma(v,5),1),e*1.03,' 今日成交量小于昨日，但有放大迹象'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1   and DISPSTATUS=2 and v>ref(v,1)and ma(v,5)<ref(ma(v,5),1),e*1.03,' 今日成交量大于昨日, 但有缩小迹象'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1   and DISPSTATUS=2 and v<ref(v,1)and ma(v,5)<ref(ma(v,5),1),e*1.03,' 今日成交量小于昨日，且有缩小迹象'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1   and DISPSTATUS=2 and v>ref(v,1)and ma(v,5)<ref(ma(v,5),1),e*1.03,' 今日成交量大于昨日, 但有缩小迹象'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1   and DISPSTATUS=2 and v<ref(v,1)and ma(v,5)<ref(ma(v,5),1),e*1.03,' 今日成交量小于昨日，且有缩小迹象'),Color8285FF,ALIGN2;
Var1:=EMA(C,3);
Var2:=EMA(C,5);
Var3:=EMA(C,10);
Var4:=EMA(C,20);
Var5:=EMA(C,30);
Var6:=(Var2+Var3+Var4+Var5)/4;
Var7:=(Var6-REF(Var6,15))/REF(Var6,15)*100;
Var8:=(Var6-REF(Var6,15))/REF(Var6, 15)*100;
Var9:=EMA(Var7,8);
STICKLINE(Var7<1*REF(Var7,1),h,l,0.5,0),COLORBLUE;STICKLINE(Var7<1*REF(Var7,1),o,c,5,  1),COLORBLUE;
STICKLINE(Var7>1*REF(Var7,1),h,l,0.5,0),COLORRED;STICKLINE(Var7>1*REF(Var7,1),o,c,5,  1),COLORRED;
STICKLINE(Var7<1*REF(Var7,1) AND Var9>1*REF(Var9,1),h,l,0.5,0),COLORGREEN;STICKLINE(Var7<1*REF(Var7,1) AND Var9>1*REF(Var9,1),o,c,5,  1),COLORGREEN;
买进价:=((c-ref(ma(c,6),1))/6+ma(c,6))*1.004;
买进条件:=cross(c,买进价) and 买进价>ref(买进价,1);
STICKLINE(买进条件,h,l,0.5,1),colorwhite,linethick2;STICKLINE(买进条件,o,c,6,0),colorwhite,linethick2;
加码价:=((c-ref(ma(c,18),1))/18+ma(c,18))*1.004;
加码条件:=cross(c,加码价) and 加码价>ref(加码价,1);
STICKLINE(加码条件,h,l,0.5,1),coloryellow,linethick2;STICKLINE(加码条件,o,c,6,0),coloryellow,linethick2