咨詢內容：
? 假陽真陰:=C>O AND C<REF(C,1);STICKLINE(假陽真陰,O,C,1,0),COLORGREEN; 均價:=AMOUNT/VOL/100;TJ01:=C<O AND 均價>REF(C,1);{假陰真陽};?TJ02:=C<O AND C>REF(C,1);?STICKLINE(TJ01 OR TJ02,O,C,1,0),COLORRED;{假陰柱}; 人線:=MA(CLOSE,13),COLOR4080FF,LINETHICK2; ? 人和:IF(人線>REF(人線,1),人線,DRAWNULL), ?COLORRED,LINETHICK2;人熊:IF(人線<REF(人線,1),人線,DRAWNULL),COLORGREEN,LINETHICK2; 地線:MA(CLOSE,55),COLOR5080FF,LINETHICK3;地利1:IF(地線>REF(地線,1),地線,DRAWNULL), COLORYELLOW,LINETHICK3;地熊1:IF(地線<REF(地線,1),地線,DRAWNULL),COLORGRAY,LINETHICK3; 天線:MA(CLOSE,3),COLOR5080FF,LINETHICK1;天時2:IF(天線>REF(天線,1),天線,DRAWNULL),COLORMAGENTA,LINETHICK1;天熊2:IF(天線<REF(天線,1),天線,DRAWNULL),COLORBLUE,LINETHICK1;{CYAN} 長牛線:MA(CLOSE,188),COLOR5080FF,LINETHICK1;牛線3:IF(長牛線>REF(長牛線,1),長牛線,DRAWNULL), COLORFF6EC7,LINETHICK4;熊線3:IF(長牛線<REF(長牛線,1),長牛線,DRAWNULL),COLORCYAN,LINETHICK4; DRAWTEXT(CROSS(長牛線,人線 ) ?AND 人線>=REF(人線,1) ,L*1,'買11',COLORMAGENTA;DRAWTEXT(CROSS(長牛線,地線 ) AND 地線>=REF(地線,1),L*1,'買12',COLORRED;DRAWTEXT(CROSS(長牛線,天線) AND 天線>=REF(天線,1),L*1,'買13',COLORMAGENTA;DRAWTEXT(CROSS(人線,地線) AND 地線>=REF(地線,1),L*1,'買22',COLORRED;DRAWTEXT(CROSS(人線,天線 ) AND 天線>=REF(天線,1),L*1,'買23',COLORMAGENTA;DRAWTEXT(CROSS(地線,天線 )AND 天線>=REF(天線,1),L*1,'買31',COLORRED; DRAWTEXT(CROSS(人線,長牛線 ) AND C>MA(C,人線),L*1,'賣11',COLORBLUE;DRAWTEXT(CROSS(地線,長牛線) AND C>MA(C,人線),L*1,'賣12',COLORGREEN;DRAWTEXT(CROSS(天線,長牛線) AND C>MA(C,人線),L*1,'賣13',COLORWHITE; DRAWTEXT(CROSS(地線,人線),L*1,'熊1',COLORBLUE;DRAWTEXT(CROSS(天線,人線),L*1,'熊2',COLORGREEN; DRAWTEXT(CROSS(天線,地線),L*1,'熊3',COLORWHITE;
?STICKLINE(C/REF(C,1)>=1.045 AND C/REF(C,1)<=1.095,C,O,2.5,0),COLORB0B0FF;{漲停變黃顏色}STICKLINE(C>1.095*REF(C,1),C,O,2.5,0),COLORYELLOW;
{二線}WH1:=IF(L=LLV(L,9),L,0);WH2:=CONST(BARSLAST(WH1!=0));WH3:=CONST(IF(WH2=0,H,REF(H,WH2)));WH4:=CONST(REF(BARSLAST(H>WH3),WH2+1)+WH2+1);WH5:=CONST(IF(WH4=0,H,REF(H,WH4)));WH6:=CONST(REF(BARSLAST(H>WH5),WH4+1)+WH4+1);WH7:IF(CURRBARSCOUNT<=WH2+10,CONST(IF(WH6=0,H,REF(H,WH6))),DRAWNULL),COLORYELLOW,DOTLINE;DRAWTEXT(ISLASTBAR,WH7,'-----,起漲',COLORFF00FF;{必殺線}N1:=10;T11:=CONST(LLVBARS(LOW,N1));T11HIGH:=CONST(REF(HIGH,T11));CC:=CONST(CURRBARSCOUNT);T2:=CONST(BARSLAST((CURRBARSCOUNT >(CC+T11)) AND (HIGH>T11HIGH)));T2HIGH:=CONST(REF(HIGH,T2));T3:=CONST(BARSLAST((CURRBARSCOUNT >(CC+T2)) AND (HIGH>T2HIGH)));T3HIGH:=CONST(REF(HIGH,T3));一線: DRAWLINE(CURRBARSCOUNT=T3+1, T3HIGH, ISLASTBAR, T3HIGH, 1),LINETHICK2,COLOR0000FF;DRAWTEXT(ISLASTBAR, T3HIGH, '突破'LINETHICK1,COLORRED;
?TT:=IF(ISLASTBAR,240/FROMOPEN,1);?NN:=120;?HH:=HHV(V*TT,NN);?LL:=LLV(V,NN);最高:=CONST(HH);最低:=CONST(LL);最高2:=CONST(HHV(H,NN));最低2:=CONST(LLV(L,NN));?PP:=IF((最高2*0.9-(最高2-最低2)*0.5)>CONST(LLV(L,20)),0.9,IF((最高2*0.9-(最高2-最低2)*0.5)>CONST(LLV(L,50)),0.7,0.6)),NODRAW;?RCC1:=最高2*0.9-(最高2-最低2)*PP;最低3:=MIN(RCC1,最低2);?AA:=最低3;{股海網提供：WWW.GUHAI.COM.CN}周J:=MA("KDJ.J#WEEK"(9,3,3) ,5),COLORFFFF00,LINETHICK2;?AA1:=周J<0 AND 周J<REF(周J,1) ;?FF1:=周J<0 AND 周J>REF(周J,1);?BB1:=周J>=0 AND 周J<85 AND 周J>REF(周J,1);?DD1:=周J>=REF(周J,1) AND 周J>=85 ;?EE1:=周J<REF(周J,1) AND 周J>0;?ZJ1:=MA("KDJ.J#WEEK"(9,3,3) ,5);?YK:=MA("KDJ.K#MONTH"(9,3,3),20),LINETHICK0;?YD:=MA("KDJ.D#MONTH"(9,3,3),20),LINETHICK0;?YJ:=MA("KDJ.J#MONTH"(9,3,3),20);??ZK:=MA("KDJ.K#WEEK"(9,3,3) ,5),LINETHICK0;?ZD:=MA("KDJ.D#WEEK"(9,3,3) ,5),LINETHICK0;?RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;?K:=SMA(RSV,3,1),LINETHICK0;?D:=SMA(K,3,1),LINETHICK0;?J:=3*K-2*D,LINETHICK0;?GG1:=C>0;?RJC:DRAWICON(CROSS(K,D),L*0.95,0);?DRAWTEXT(RJC,L*0.96,'',COLORFF00FF;?RSC:DRAWICON(CROSS(D,K),H*1.03,0),;?DRAWTEXT(RSC,H*1.03,'',COLORFFFFFF;?ZJC: DRAWICON (CROSS(ZK,ZD), L*0.98,0);?DRAWTEXT(ZJC,L*0.98,'',COLORFF00FF;?ZSC: DRAWICON (CROSS(ZD,ZK), H*1.03,2),;??DRAWTEXT(ZSC,H*1.03,'',COLOR00FFFF;?YJC: DRAWICON (CROSS(YK,YD), L*0.98,1);?DRAWTEXT(YJC,L*0.98,'',COLORFF0000;?YSC: DRAWICON (CROSS(YD,YK), H*1.03,2),;?DRAWTEXT(YSC,H*1.03,'',COLORFFFF00; STICKLINE(C/REF(C,1)>=1.045 AND C/REF(C,1)<=1.095,C,O,2.5,0),COLORB0B0FF;{漲停變黃顏色}STICKLINE(C>1.095*REF(C,1),C,O,2.5,0),COLORYELLOW; 賣:=J<100 AND REF(J,1)>100;大于30:=J-K>30;STICKLINE(賣,REF(LOW,1),REF(LOW,1),20,0),COLORBLUE;DRAWICON(大于30,HIGH,2);大于230:=K-J>30;剎:=J>0 AND REF(J,1)<0;DRAWICON(大于230,LOW,1);STICKLINE(剎,REF(CLOSE,1),REF(CLOSE,1),20,0),COLORYELLOW;DRAWTEXT(剎,L*0.99,'',COLORYELLOW,LINETHICK2;所屬地域:DRAWTEXT_FIX(ISLASTBAR ,0.88,1,1,DYBLOCK),COLORYELLOW;所屬行業:DRAWTEXT_FIX(ISLASTBAR ,0.91,1,0,HYBLOCK),COLORYELLOW;DRAWTEXT_FIX(1,0.00,0.18,0,'題投資：'COLORWHITE;DRAWTEXT_FIX(1,0.09,0.18,0,EXTERNSTR(0,1))COLORWHITE;DRAWTEXT_FIX(1,0.00,0.26,0,'營業務：'COLORFF00FF;DRAWTEXT_FIX(1,0.09,0.26,0,EXTERNSTR(0,2))COLORFF00FF;DRAWTEXT_FIX(1,0.00,1,0,'大股東：'COLORYELLOW;DRAWTEXT_FIX(1,0.07,1,0,EXTERNSTR(0,3))COLORYELLOW; {成交量比大于昨天一倍}?大量:=VOL>REF(VOL,1)*1.1;?新高:=C>REF(C,1);RJC1:=DRAWICON(CROSS(K,D) AND 大量 ,L*0.98,0);DRAWTEXT(REF(RJC,1) AND 新高 AND ?大量 ,L*0.98,'',COLOR00FFFF;
?
?來源:程序化99
文華技術人員：不同軟件函數機制處理不同，加載效果可能略有差異是正常的，改寫參考 假陽真陰:=C>O AND C<REF(C,1);STICKLINE(假陽真陰,O,C,1,0),COLORGREEN;AMOUNT:=AVPRICE*V;均價:=AMOUNT/VOL/100;TJ01:=C<O AND 均價>REF(C,1);?TJ02:=C<O AND C>REF(C,1);?STICKLINE(TJ01 OR TJ02,O,C,1,0),COLORRED; 人線:=MA(CLOSE,13),COLOR4080FF,LINETHICK2;?? 人和:IF(人線>REF(人線,1),人線,NULL),? COLORRED,LINETHICK2;人熊:IF(人線<REF(人線,1),人線,NULL),COLORGREEN,LINETHICK2; 地線:MA(CLOSE,55),COLOR5080FF,LINETHICK3;地利1:IF(地線>REF(地線,1),地線,NULL), COLORYELLOW,LINETHICK3;地熊1:IF(地線<REF(地線,1),地線,NULL),COLORGRAY,LINETHICK3; 天線:MA(CLOSE,3),COLOR5080FF,LINETHICK1;天時2:IF(天線>REF(天線,1),天線,NULL),COLORMAGENTA,LINETHICK1;天熊2:IF(天線<REF(天線,1),天線,NULL),COLORBLUE,LINETHICK1;{CYAN} 長牛線:MA(CLOSE,188),COLOR5080FF,LINETHICK1;牛線3:IF(長牛線>REF(長牛線,1),長牛線,NULL), COLORFF6EC7,LINETHICK4;熊線3:IF(長牛線<REF(長牛線,1),長牛線,NULL),COLORCYAN,LINETHICK4; DRAWTEXT(CROSS(長牛線,人線 )? AND 人線>=REF(人線,1) ,L*1,'↑買11'),COLORMAGENTA;DRAWTEXT(CROSS(長牛線,地線 ) AND 地線>=REF(地線,1),L*1,'↑買12'),COLORRED;DRAWTEXT(CROSS(長牛線,天線) AND 天線>=REF(天線,1),L*1,'↑買13'),COLORMAGENTA;DRAWTEXT(CROSS(人線,地線) AND 地線>=REF(地線,1),L*1,'↑買22'),COLORRED;DRAWTEXT(CROSS(人線,天線 ) AND 天線>=REF(天線,1),L*1,'↑買23'),COLORMAGENTA;DRAWTEXT(CROSS(地線,天線 ) AND 天線>=REF(天線,1),L*1,'↑買31'),COLORRED; DRAWTEXT(CROSS(人線,長牛線 ) AND C>MA(C,人線),L*1,'↑賣11'),COLORBLUE;DRAWTEXT(CROSS(地線,長牛線) AND C>MA(C,人線),L*1,'↑賣12'),COLORGREEN;DRAWTEXT(CROSS(天線,長牛線) AND C>MA(C,人線),L*1,'↑賣13'),COLORWHITE; DRAWTEXT(CROSS(地線,人線),L*1,'↑熊1'),COLORBLUE;DRAWTEXT(CROSS(天線,人線),L*1,'↑熊2'),COLORGREEN; DRAWTEXT(CROSS(天線,地線),L*1,'↑熊3'),COLORWHITE; ?STICKLINE(C/REF(C,1)>=1.045 AND C/REF(C,1)<=1.095,C,O,2.5,0),COLORB0B0FF;STICKLINE(C>1.095*REF(C,1),C,O,2.5,0),COLORYELLOW; CURRBARSCOUNT:=DATACOUNT-BARPOS+1;WH1:=IF(L=LLV(L,9),L,0);WH2:=REFX1(BARSLAST(WH1<>0),10000);WH3:=REFX1(IF(WH2=0,H,REF(H,WH2)),10000);WH4:=REFX1(REF(BARSLAST(H>WH3),WH2+1)+WH2+1,10000);WH5:=REFX1(IF(WH4=0,H,REF(H,WH4)),10000);WH6:=REFX1(REF(BARSLAST(H>WH5),WH4+1)+WH4+1,10000);WH7:IF(CURRBARSCOUNT<=WH2+10,REFX1(IF(WH6=0,H,REF(H,WH6)),10000),NULL),COLORYELLOW,DOT;DRAWTEXT(ISLASTBAR,WH7,'------,起漲'),COLORFF00FF;{必殺線}N1:=10;T11:=REFX1(LLVBARS(LOW,N1),10000);T11HIGH:=REFX1(REF(HIGH,T11),10000);CC:=REFX1(CURRBARSCOUNT,10000);T2:=REFX1(BARSLAST((CURRBARSCOUNT >(CC+T11)) AND (HIGH>T11HIGH)),10000);T2HIGH:=REFX1(REF(HIGH,T2),10000);T3:=REFX1(BARSLAST((CURRBARSCOUNT >(CC+T2)) AND (HIGH>T2HIGH)),10000);T3HIGH:=REFX1(REF(HIGH,T3),10000);一線: TRENDLINES(CURRBARSCOUNT=T3+1, T3HIGH, ISLASTBAR, T3HIGH),LINETHICK2,COLOR0000FF;DRAWTEXT(ISLASTBAR, T3HIGH, ' 突破'),LINETHICK1,COLORRED; FROMOPEN:=IF(HOUR<12,60*(HOUR-9)-30+MINUTE,120+60*(HOUR-13)+MINUTE);?TT:=IF(ISLASTBAR,240/FROMOPEN,1); ?NN:=120;?HH:=HHV(V*TT,NN);?LL:=LLV(V,NN);最高:=REFX1(HH,10000);最低:=REFX1(LL,10000);最高2:=REFX1(HHV(H,NN),10000);最低2:=REFX1(LLV(L,NN),10000);PP:=IF((最高2*0.9-(最高2-最低2)*0.5)>REFX1(LLV(L,20),10000),0.9,IF((最高2*0.9-(最高2-最低2)*0.5)>REFX1(LLV(L,50),10000),0.7,0.6)),NODRAW;RCC1:=最高2*0.9-(最高2-最低2)*PP;最低3:=MIN(RCC1,最低2);AA:=最低3;RSV2:=(CLOSE-LLV(LOW,9*5))/(HHV(HIGH,9*5)-LLV(LOW,9*5))*100;K2:=SMA(RSV2,3*5,1);D2:=SMA(K2,3*5,1);J2:=3*K2-2*D2;RSV1:=(CLOSE-LLV(LOW,9*5*4))/(HHV(HIGH,9*5*4)-LLV(LOW,9*5*4))*100;K1:=SMA(RSV1,3*5*4,1);D1:=SMA(K1,3*5*4,1);J1:=3*K1-2*D1;周J:=MA(J2,5),COLORFFFF00,LINETHICK2;?AA1:=周J<0 AND 周J<REF(周J,1) ;?FF1:=周J<0 AND 周J>REF(周J,1);?BB1:=周J>=0 AND 周J<85 AND 周J>REF(周J,1);?DD1:=周J>=REF(周J,1) AND 周J>=85 ;?EE1:=周J<REF(周J,1) AND 周J>0;?ZJ1:=MA(J2,5);?YK:=MA(K1,20),NODRAW;?YD:=MA(D1,20);?YJ:=MA(J1,20);??ZK:=MA(K2,5);?ZD:=MA(D2,5);?RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;?K:=SMA(RSV,3,1);?D:=SMA(K,3,1);?J:=3*K-2*D;?GG1:=C>0;?DRAWICON(CROSS(K,D),L*0.95,0);?DRAWTEXT(CROSS(K,D),L*0.96,'換'),COLORFF00FF;?DRAWICON(CROSS(D,K),H*1.03,0);?DRAWTEXT(CROSS(D,K),H*1.03,'倒'),COLORFFFFFF;?DRAWICON (CROSS(ZK,ZD), L*0.98,0);?DRAWTEXT(CROSS(ZK,ZD),L*0.98,'周'),COLORFF00FF;?DRAWICON (CROSS(ZD,ZK), H*1.03,2);??DRAWTEXT(CROSS(ZD,ZK),H*1.03,'周'),COLOR00FFFF;?DRAWICON (CROSS(YK,YD), L*0.98,1);?DRAWTEXT(CROSS(YK,YD),L*0.98,'月'),COLORFF0000;?DRAWICON (CROSS(YD,YK), H*1.03,2);?DRAWTEXT(CROSS(YD,YK),H*1.03,'月'),COLORFFFF00; STICKLINE(C/REF(C,1)>=1.045 AND C/REF(C,1)<=1.095,C,O,2.5,0),COLORB0B0FF; STICKLINE(C>1.095*REF(C,1),C,O,2.5,0),COLORYELLOW; 賣:=J<100 AND REF(J,1)>100;大于30:=J-K>30;STICKLINE(賣,REF(LOW,1),REF(LOW,1),20,0),COLORBLUE;DRAWICON(大于30,HIGH,2);大于230:=K-J>30;剎:=J>0 AND REF(J,1)<0;DRAWICON(大于230,LOW,1);STICKLINE(剎,REF(CLOSE,1),REF(CLOSE,1),20,0),COLORYELLOW;DRAWTEXT(剎,L*0.99,'剎'),COLORYELLOW,LINETHICK2; 大量:=VOL>REF(VOL,1)*1.1;?新高:=C>REF(C,1);DRAWICON(CROSS(K,D) AND 大量 ,L*0.98,0);DRAWTEXT(REF(CROSS(K,D),1) AND 新高 AND? 大量 ,L*0.98,'加'),COLOR00FFFF;
打印本文
關閉窗口