|
A: ma5:MA(CLOSE,5); ma13:MA(CLOSE,13); ma21:MA(CLOSE,21); ma34:MA(CLOSE,34); ma55:MA(CLOSE,55); ma89:MA(CLOSE,89); ma144:MA(CLOSE,144); ma233:MA(CLOSE,233); tmp1:=IF(CLOSE>ma5,1,0); tmp2:=IF(CLOSE>ma13,1,0); tmp3:=IF(CLOSE>ma21,1,0); tmp4:=IF(CLOSE>ma34,1,0); tmp5:=IF(CLOSE>ma55,1,0); tmp6:=IF(CLOSE>ma89,1,0); tmp7:=IF(CLOSE>ma144,1,0); tmp8:=IF(CLOSE>ma233,1,0); LEI:=tmp1+tmp2+tmp3+tmp4+tmp5+tmp6+tmp7+tmp8+1; kx:="chzhshch@kxian";{處理K線} 筆:="chzhshch@bi";{處理筆關(guān)系} N1:=BARSLAST(筆<0); N2:=BARSLAST(筆>0); x1:=LLV(LEI,N2); x2:=HHV(LEI,N1); 類別:IF(N1>N2,X1,X2),LINETHICK1; B: ma5:=ma(c,5); ma13:=ma(c,13); ma21:=ma(c,21); ma34:=ma(c,34); ma55:=ma(c,55); ma89:=ma(c,89); ma144:=ma(c,144); ma233:=ma(c,233); tmp1:=if(c>ma5,1,0); tmp2:=if(c>ma13,1,0); tmp3:=if(c>ma21,1,0); tmp4:=if(c>ma34,1,0); tmp5:=if(c>ma55,1,0); tmp6:=if(c>ma89,1,0); tmp7:=if(c>ma144,1,0); tmp8:=if(c>ma233,1,0); LEI:=tmp1+tmp2+tmp3+tmp4+tmp5+tmp6+tmp7+tmp8+1; var1:="chzhshch@kxian";{處理K線} var2:="chzhshch@bi";{處理筆關(guān)系} N1:=BARSLAST(var2<0); N2:=BARSLAST(var2>0); x1:=llv(LEI,N2); x2:=HHV(LEI,N1); 類別:if(N1>N2,X1,X2),LINETHICK1; DRAWFLAGTEXT(c,h,' '+類別); C: ma5:ma(c,5); ma10:ma(c,10); ma20:ma(c,20); ma30:ma(c,30); ma40:ma(c,40); ma60:ma(c,60); ma120:ma(c,120); ma240:ma(c,240); tmp1:=if(c>ma5,1,0); tmp2:=if(c>ma10,1,0); tmp3:=if(c>ma20,1,0); tmp4:=if(c>ma30,1,0); tmp5:=if(c>ma40,1,0); tmp6:=if(c>ma60,1,0); tmp7:=if(c>ma120,1,0); tmp8:=if(c>ma240,1,0); LEI:=tmp1+tmp2+tmp3+tmp4+tmp5+tmp6+tmp7+tmp8+1; var1:="chzhshch@kxian";{處理K線} var2:="chzhshch@bi";{處理筆關(guān)系} N1:=BARSLAST(var2<0); N2:=BARSLAST(var2>0); x1:=llv(LEI,N2); x2:=HHV(LEI,N1); 類別:if(N1>N2,X1,X2),LINETHICK0; DRAWFLAGTEXT(c,h,' '+類別); D: ma5:ma(c,5); ma10:ma(c,10); ma20:ma(c,20); ma30:ma(c,30); ma40:ma(c,40); ma60:ma(c,60); tmp1:=if(c>ma5,1,0); tmp2:=if(c>ma10,1,0); tmp3:=if(c>ma20,1,0); tmp4:=if(c>ma30,1,0); tmp5:=if(c>ma40,1,0); tmp6:=if(c>ma60,1,0); LEI:=tmp1+tmp2+tmp3+tmp4+tmp5+tmp6+1; var1:="chzhshch@kxian";{處理K線} var2:="chzhshch@bi";{處理筆關(guān)系} N1:=BARSLAST(var2<0); N2:=BARSLAST(var2>0); x1:=llv(LEI,N2); x2:=HHV(LEI,N1); 類別:if(N1>N2,X1,X2),LINETHICK0; DRAWFLAGTEXT(c,h,' '+類別); E: ma5:ma(c,5); ma13:ma(c,13); ma21:ma(c,21); ma34:ma(c,34); ma55:ma(c,55); ma89:ma(c,89); ma144:ma(c,144); ma233:ma(c,233); var1:="chzhshch@kxian";{處理K線} var2:="chzhshch@bi";{處理筆關(guān)系} drawline(var2=1,h,var2=-1,l,0),pointdot,colorgreen; drawline(var2=-1,l,var2=1,h,0),pointdot,colorred; 反彈:=ref(var2,barslast(var2<>0))=-1; LEI:=if(反彈,if(h<ma5,1,if(h<ma13,2,if(h<ma21,3,if(h<ma34,4,if(h<ma55,5,if(h<ma89,6,if(h<ma144,7,if(h<ma233,8,9)))))))),1); 類別:if(反彈 and barslast(var2=-1)>0,hhv(lei,BARSLAST(var2<0)),1),linethick0; DRAWFLAGTEXT(c,h,' '+類別); F: kx:="chanlun@kxian"; {處理K線} {這個(gè)放第一個(gè) 要不會(huì)出問(wèn)題滴-_-\\\~~} kxg:="chanlun@kxg"; kxd:="chanlun@kxd"; kxfx:="chanlun@kxfx"; 筆:="chanlun@bi"; {處理筆關(guān)系} ma5:ma(c,5); ma13:ma(c,13); ma21:ma(c,21); ma34:ma(c,34); ma55:ma(c,55); ma89:ma(c,89); ma144:ma(c,144); ma233:ma(c,233); {畫筆段} drawline(筆=1,h,筆=-1,l,0),coloryellow,linethick1; drawline(筆=-1,l,筆=1,h,0),COLORMAGENTA{coloryellow},linethick1; 反彈:=ref(筆,barslast(筆<>0))=-1; LEI:=if(反彈,if(h<ma5,1,if(h<ma13,2,if(h<ma21,3,if(h<ma34,4,if(h<ma55,5,if(h<ma89,6,if(h<ma144,7,if(h<ma233,8,9)))))))),1); 類別:if(反彈 and barslast(筆=-1)>0,hhv(lei,BARSLAST(筆<0)),1),linethick0; DRAWFLAGTEXT(c,h,' '+類別); |
|
|
