SJTJ:=DATE<331231;MAH:=(H*18+REF(H,1)*17+REF(H,2)*16+REF(H,3)*15+REF(H,4)*14+REF(H,5)*13+REF(H,6)*12+REF(H,7)*11+REF(H,8)*10+REF(H,9)*9+REF(H,10)*8+REF(H,11)*7+REF(H,12)*6+REF(H,13)*5+REF(H,14)*4+REF(H,15)*3+REF(H,16)*2+REF(H,17)*1)/171;MAL:=(L*18+REF(L,1)*17+REF(L,2)*16+REF(L,3)*15+REF(L,4)*14+REF(L,5)*13+REF(L,6)*12+REF(L,7)*11+REF(L,8)*10+REF(L,9)*9+REF(L,10)*8+REF(L,11)*7+REF(L,12)*6+REF(L,13)*5+REF(L,14)*4+REF(L,15)*3+REF(L,16)*2+REF(L,17)*1)/171;MA5:=MA(CLOSE,5);MA10:=MA(CLOSE,10);MA20:=MA(CLOSE,20);MA60:=MA(CLOSE,60);DK:= SJTJ AND ( CLOSE>=MAH OR (C>MA5 AND C>MA10 AND C>MA20 AND C>MA60));KK:= SJTJ AND ( MAL>CLOSE OR (C<MA5 AND C<MA10 AND C<MA20 AND C<MA60));DK1:=BARSLAST(DK);KK1:=BARSLAST(KK);DK2:=BARSLAST(CROSS(KK1,DK1));KK2:=BARSLAST(CROSS(DK1,KK1));HS:=DK2<KK2;LS:=KK2<DK2;W2:=OPEN-CLOSE;HT:=IF(OPEN>CLOSE,OPEN,CLOSE);LT:=IF(OPEN<CLOSE,OPEN,CLOSE);STICKLINE(HS,REFX1(HHV(H,0),10000),REFX1(LLV(L,0),10000),6,0),COLORLIGHTRED;//紅色STICKLINE(LS,REFX1(HHV(H,0),10000),REFX1(LLV(L,0),10000),6,0),COLORBLACK;//黑色STICKLINE(W2>0 AND HS,OPEN,CLOSE,2,0),COLORRED;STICKLINE(W2>0 AND HS,OPEN,H,0.0,0),COLORRED;STICKLINE(W2>0 AND HS,C,L,0.0,0),COLORRED;STICKLINE(W2<=0 AND HS,OPEN,CLOSE,2,1),COLORRED;STICKLINE(W2<=0 AND HS,O,L,0.0,0),COLORRED;STICKLINE(W2<=0 AND HS,C,H,0.0,0),COLORRED;STICKLINE(W2>0 AND LS,OPEN,CLOSE,2,0),COLORGREEN;STICKLINE(W2>0 AND LS,OPEN,H,0.0,0),COLORGREEN;STICKLINE(W2>0 AND LS,C,L,0.0,0),COLORGREEN;STICKLINE(W2<=0 AND LS,OPEN,CLOSE,2,1),COLORGREEN;STICKLINE(W2<=0 AND LS,C,H,0.0,0),COLORGREEN;STICKLINE(W2<=0 AND LS,O,L,0.0,0),COLORGREEN;DRAWNUMBER1(ISLASTBAR AND LS,MAH,MAH,2),COLORYELLOW;DRAWNUMBER1(ISLASTBAR AND HS,MAL,MAL,2),COLORYELLOW;最新價:IF(SJTJ, C,NULL),LINETHICK1,COLORYELLOW;趨勢線:=(MAH+MAL)/2 ,COLORGREEN,LINETHICK2;趨勢線上升:IF(HS,趨勢線,NULL),LINETHICK2,COLORRED;趨勢線下降:IF(LS,趨勢線,NULL),LINETHICK2,COLORGREEN;DRAWICON(HS,趨勢線*0.995,4);DRAWICON(LS,趨勢線*1.005,5); AAA:=REFX1(HHV(H,50),10000);PL5:=HHV(H,45);
?
?來源:程序化99
文華技術人員：?參考： SJTJ:=DATE<331231;MAH:=(H*18+REF(H,1)*17+REF(H,2)*16+REF(H,3)*15+REF(H,4)*14+REF(H,5)*13+REF(H,6)*12+REF(H,7)*11+REF(H,8)*10+REF(H,9)*9+REF(H,10)*8+REF(H,11)*7+REF(H,12)*6+REF(H,13)*5+REF(H,14)*4+REF(H,15)*3+REF(H,16)*2+REF(H,17)*1)/171;MAL:=(L*18+REF(L,1)*17+REF(L,2)*16+REF(L,3)*15+REF(L,4)*14+REF(L,5)*13+REF(L,6)*12+REF(L,7)*11+REF(L,8)*10+REF(L,9)*9+REF(L,10)*8+REF(L,11)*7+REF(L,12)*6+REF(L,13)*5+REF(L,14)*4+REF(L,15)*3+REF(L,16)*2+REF(L,17)*1)/171;MA5:=MA(CLOSE,5);MA10:=MA(CLOSE,10);MA20:=MA(CLOSE,20);MA60:=MA(CLOSE,60);DK:= SJTJ AND ( CLOSE>=MAH OR (C>MA5 AND C>MA10 AND C>MA20 AND C>MA60));KK:= SJTJ AND ( MAL>CLOSE OR (C<MA5 AND C<MA10 AND C<MA20 AND C<MA60));DK1:=BARSLAST(DK);KK1:=BARSLAST(KK);DK2:=BARSLAST(CROSS(KK1,DK1));KK2:=BARSLAST(CROSS(DK1,KK1));HS:=DK2<KK2;LS:=KK2<DK2;W2:=OPEN-CLOSE;HT:=IF(OPEN>CLOSE,OPEN,CLOSE);LT:=IF(OPEN<CLOSE,OPEN,CLOSE);STICKLINE(HS,REFX1(HHV(H,0),10000),REFX1(LLV(L,0),10000),6,0),COLORLIGHTRED;//紅色STICKLINE(LS,REFX1(HHV(H,0),10000),REFX1(LLV(L,0),10000),6,0),COLORBLACK;//黑色STICKLINE(W2>0 AND HS,OPEN,CLOSE,2,0),COLORRED;STICKLINE(W2>0 AND HS,OPEN,H,0.0,0),COLORRED;STICKLINE(W2>0 AND HS,C,L,0.0,0),COLORRED;STICKLINE(W2<=0 AND HS,OPEN,CLOSE,2,1),COLORRED;STICKLINE(W2<=0 AND HS,O,L,0.0,0),COLORRED;STICKLINE(W2<=0 AND HS,C,H,0.0,0),COLORRED;STICKLINE(W2>0 AND LS,OPEN,CLOSE,2,0),COLORGREEN;STICKLINE(W2>0 AND LS,OPEN,H,0.0,0),COLORGREEN;STICKLINE(W2>0 AND LS,C,L,0.0,0),COLORGREEN;STICKLINE(W2<=0 AND LS,OPEN,CLOSE,2,1),COLORGREEN;STICKLINE(W2<=0 AND LS,C,H,0.0,0),COLORGREEN;STICKLINE(W2<=0 AND LS,O,L,0.0,0),COLORGREEN;DRAWNUMBER1(ISLASTBAR AND LS,MAH,MAH,2),COLORYELLOW;DRAWNUMBER1(ISLASTBAR AND HS,MAL,MAL,2),COLORYELLOW;最新價:=IF(SJTJ, C,NULL),LINETHICK1,COLORYELLOW;趨勢線:=(MAH+MAL)/2 ,COLORGREEN,LINETHICK2;趨勢線上升:IF(HS,趨勢線,NULL),LINETHICK2,COLORRED;趨勢線下降:IF(LS,趨勢線,NULL),LINETHICK2,COLORGREEN;DRAWICON(HS,趨勢線*0.995,4);DRAWICON(LS,趨勢線*1.005,5); AAA:=REFX1(HHV(H,50),10000);PL5:=HHV(H,45);
打印本文
關閉窗口