打印本文
關閉窗口
粗藍線下弱勢:0,COLORFF6C00,NODRAW;
參照其它指標:0,COLORWHITE,NODRAW;
綜合判斷操作:0,COLORYELLOW,NODRAW;
A:=AMOUNT/V/100;
VARA:=EMA((((A-EMA(A,13))/EMA(A,13))*(0-100)),5);
QQ:=EMA(((VARA/10)+EMA(A,13)),0);
行情線:=MA(A,1);
重心:=(C+0.618*REF(C,1)+0.382*REF(C,1)+0.236*REF(C,3)+0.146*REF(C,4))/2.382;
【操盤線】:EMA(((SLOPE(C,22)*20)+C),60),COLORRED,LINETHICK2;
{【黃金線】:}IF(重心>=【操盤線】,【操盤線】,DRAWNULL),COLORRED,LINETHICK4;
{【空倉線】:}IF(重心<【操盤線】,【操盤線】,DRAWNULL),COLORFF6C00,LINETHICK3;
{DRAWTEXT(ISLASTBAR,【操盤線】,'操盤線】',COLORRED;}
{引:EMA(CLOSE,2),LINETHICK1,COLORMAGENTA;
探:MA(CLOSE,5),LINETHICK1;}
{變:EMA(CLOSE,5),LINETHICK1,COLORYELLOW;
金:IF(變>REF(變,1),變,DRAWNULL),COLORRED,LINETHICK1;
空:IF(變<REF(變,1),變,DRAWNULL),COLORGREEN,LINETHICK2;
DRAWTEXT(ISLASTBAR,變,'雷達線】',COLORRED,LINETHICK3;}
{頂底信號}
DA:=(EMA(H,1)+EMA(L,1)+EMA(H,1)+EMA(H,1))/4;
DB:=EMA(REF(HHV(H,25),1),2),COLORGREEN,LINETHICK1;
{DRAWTEXT(CROSS(DB,DA),DB,'險',COLORGREEN,LINETHICK1;}
{DRAWTEXT(CROSS(DA,【操盤線】),【操盤線】*0.98,'',COLORWHITE,LINETHICK1;}
上線:=SMA(C,6.5,1);
下線:=SMA(C,13.5,1);
上線1:=SMA(C,3,1);
下線1:=SMA(C,8,1);
{DRAWTEXT( CROSS(上線,下線) AND C>O,LOW *0.96,'全倉'),COLORYELLOW;}
DRAWTEXT(CROSS(下線1,上線1),H*1.02,'#39),COLORYELLOW;
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
UPR:=BBI+3*STD(BBI,13),LINETHICK2;
DWN:=BBI-3*STD(BBI,13);
安全:=MA(CLOSE,60),LINETHICK2;
LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
DRAWTEXT( CROSS(82,RSI) , HIGH*1.04,'倉' ,COLORFF9966,LINETHICK2;
A7:=(2*C+H+L)/4;
操作:=MA(A7,5),COLOR00FF00,LINETHICK2;
操作1:=MA(A7,5)*1.03,LINETHICK2;
操作2:=MA(A7,5)*0.97,LINETHICK2;
壓力1:HHV(A7,21),COLOR00F666{,CIRCLEDOT};
壓力2:HHV(A7,36),COLORFF6CC0;
支撐:LLV(A7,21),COLORCYAN;
SK:=EMA((A7-壓力1)/(支撐-壓力1)*100,7);
SD:=EMA(0.667*REF(SK,1)+0.333*SK,5);
{DRAWTEXT(IF(COUNT(CLOSE<REF(CLOSE,1),8)/8>6/10 AND VOL>=1.5*MA(VOL,5) AND
COUNT(SK>=SD,3) AND REF(LOW,1)=LLV(LOW,120),1,0),LOW*0.98,'進' ,COLOR0099FF;
DRAWTEXT(IF(COUNT(CLOSE<REF(CLOSE,1),13)/13>6/10 AND
COUNT(SK>SD,6) AND REF(LOW,5)=LLV(LOW,120) AND REF(CLOSE>=OPEN,4) AND
REF(CLOSE>OPEN,3) AND REF(CLOSE>OPEN,2) AND REF(OPEN>CLOSE,1) AND
OPEN>REF(CLOSE,1),1,0) ,LOW*0.98,'進' ,COLORYELLOW;}
D:=MA(CLOSE,80)-MA(CLOSE,10)/3;
DRAWTEXT(IF(CLOSE<D AND VOL/240>MA(VOL,5)/240 AND CLOSE>REF(CLOSE,1)*1.08
AND CLOSE<MA(CLOSE,13)*1.3,1,0),LOW*0.98,'底',COLORYELLOW;
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
E1:=BARSCOUNT(C);
AH:=HHV(H,200);
AL:=LLV(L,200);
B0:=(AH-AL)/40;
KB1:=H+B0;
KB2:=L-B0;
{STICKLINE((E1+0)/34=FLOOR((E1+0)/34),KB2,KB2-0.8*B0,1,0),COLORYELLOW,LINETHICK3;}
{DRAWTEXT((E1+0)/34=FLOOR((E1+0)/34),KB2-B0,'窗',COLORYELLOW;}
MA18:=MA(CLOSE,18);
MTM:=C-REF(C,1);
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
買:=LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2));
DRAWTEXT(FILTER(買=1,5) AND (H-C)<(C-O) AND C>操作,LOW,'買',COLORRED;
加1:=MA18>=REF(MA18,3) AND CROSS(CLOSE,MA18);
DRAWTEXT(加1,LOW*0.98,'加倉',COLORCC66FF;
賣一:=HHV(DX,2)=HHV(DX,7) AND COUNT(DX>50,2) AND CROSS(MA(DX,2),DX);
DRAWTEXT(FILTER(賣一=1,1),HIGH*1.025,'賣',COLORGREEN;
DRAWTEXT_FIX(1,0.980,20,1,'供服務：公式修改,還原源碼,做選股。',COLOR666666;?
{預測明天}
XXS:=MA(LOW,5)*(1-5/100);
XXS1:=MA(HIGH,5)*(1+5/100);
均線:=C,COLORGREEN;
AAAA:=CLOSE/REF(CLOSE,3)<=0.85 AND CROSS(C,XXS) AND C>REF(C,1),LINETHICK0 ;
DRAWTEXT(AAAA,L*0.95,'影買',COLORRED;
BBAA:=CROSS(XXS1,C);
{DRAWTEXT(CROSS(XXS1,C),H*1.012,'盤逃',COLORWHITE;}
DDDD:=CROSS(C,XXS1);
DRAWTEXT(COUNT(DDDD,3)>=1 AND C>【操盤線】*1.1 AND C<O,H*1.036,'賣',COLORYELLOW;
AA1Z:=MA(C,5);
BB1Z:=MA(C,15);
AF:=CROSS(AA1Z,BB1Z);
{STICKLINE(AF,LLV(L,4),LLV(L,4),50,1),COLORRED,LINETHICK3;
DRAWTEXT(AF,LLV(L,4),'損 啟動線',COLORYELLOW;}
AAZ:=CLOSE>REF(CLOSE,1) AND REF(CLOSE,1)>REF(CLOSE,2) AND REF(CLOSE,1)<REF(CLOSE,3) AND IF(REF(CLOSE,3)<REF(CLOSE,4),1,IF(REF(CLOSE,4)<REF(CLOSE,5),REF(CLOSE,1)<REF(CLOSE,4) OR (REF(CLOSE,2)<REF(CLOSE,4) AND REF(CLOSE,3)>=REF(CLOSE,5)),IF(REF(CLOSE,5)<REF(CLOSE,6),1,REF(CLOSE,6)<REF(CLOSE,7))));
BBZ:=CLOSE<REF(CLOSE,1) AND REF(CLOSE,1)<REF(CLOSE,2) AND REF(CLOSE,1)>REF(CLOSE,3) AND IF(REF(CLOSE,3)>REF(CLOSE,4),1,IF(REF(CLOSE,4)>REF(CLOSE,5),REF(CLOSE,1)>REF(CLOSE,4) OR (REF(CLOSE,2)>REF(CLOSE,4) AND REF(CLOSE,3)<=REF(CLOSE,5)),IF(REF(CLOSE,5)>REF(CLOSE,6),1,REF(CLOSE,6)>REF(CLOSE,7))));
TYX3Z:=MA(REF(HHV((C+L+O+H)/4,30),1),3);
TYX4Z:=MA((C+L+O+H)/4,13);
TYX5Z:=EMA((C+L+O+H)/4,21);
DRAWICON(AAZ AND CLOSE>REF(OPEN,2),0.98*LOW,1);
DRAWICON(BBZ AND CLOSE<REF(CLOSE,2) AND C>【操盤線】*1.07,HIGH*1.01,2);
{修正價格}
重心1:=(C+0.618*REF(C,1)+0.382*REF(C,2)+0.236*REF(C,3)+0.146*REF(C,4))/2.382,COLORYELLOW,LINETHICK1;
GAO:=HHV(C,60)-LLV(C,60);
RSIZ:=SMA(MAX(重心1-REF(重心1,1),0),5,1)/SMA(ABS(重心1-REF(重心1,1)),5,1);
指導線:=重心1+GAO*(RSIZ-0.5),COLORMAGENTA,LINETHICK1;
{STICKLINE(CROSS(RSIZ,0.1),指導線,REF(指導線,1),2,0),COLORYELLOW;
STICKLINE(CROSS(0.9,RSIZ),指導線,REF(指導線,1),2,0),COLORBLUE;}
STICKLINE(CROSS(RSIZ,0.1),L*0.99,L*0.98,4,0),COLORYELLOW;
STICKLINE(CROSS(0.9,RSIZ),H*1.01,H*1.02,4,0),COLORBLUE;
C6:=REF(C,1);
{漲跌停K線}
STICKLINE(HIGH=LOW AND CLOSE=OPEN AND (CLOSE/REF(CLOSE,1))>1.048,HIGH,LOW,3,0) ,COLORRED;
STICKLINE(HIGH=LOW AND CLOSE=OPEN AND (REF(CLOSE,1)/CLOSE)>1.048,HIGH,LOW,3,0) ,COLOR00FF00;
漲停:=IF((C-C6)*100/C6>=(10-0.01*100/C6),1,0);
STICKLINE(漲停,OPEN,CLOSE,2,0),COLORMAGENTA;
STICKLINE(漲停,H,L,0,0),COLORLIRED;
{股旁網-股票公式網站 WWW.GUPANG.COM}
DRAWTEXT(AAZ AND CLOSE>REF(OPEN,2) AND C>MA(C,6),LOW*0.95,'平底',COLORYELLOW;
DRAWTEXT(BBZ AND CLOSE<REF(CLOSE,2) AND C>【操盤線】*1.07,HIGH*1.05,'平頂',COLORCYAN;
{DRAWTEXT(ISLASTBAR,C,'-------現價',COLORWHITE;}
{弄點錢玩玩指標}
JJ:=(H+L+C)/3;QJ0:=VOL/IF(H=L,4,H-L);
JB:="KDJ.J";
QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(C,O)),QJ0*(MIN(O,C)-L));
QJ2:=IF(CAPITAL=0,QJ0*(MIN(O,C)-L),QJ0*(JJ-MIN(C,O)));
QJ3:=QJ0*(H-MAX(O,C));QJ4:=QJ0*(MAX(C,O)-JJ);
QJ5:=QJ1+QJ2;QJ6:=QJ3+QJ4;DDB:=(QJ5-QJ6)/(QJ5+QJ6)*100;
DDX:=((QJ1+QJ2)-(QJ3+QJ4))/SUM(VOL,10)*100;DDZ:=DDB*17;
DDY:=((QJ2+QJ4)-(QJ1+QJ3))/SUM(VOL,10)*100;
弄點錢玩:=CROSS(JB,0) AND ((DDX>0 AND DDY>0) OR DDZ>400);
{STICKLINE(弄點錢玩,L*0.94,L*0.96,3,0),COLORRED;}
DRAWICON(弄點錢玩,L*0.98,11);
DRAWTEXT(CROSS(JB,0) AND ((DDX>0 AND DDY>0) OR DDZ>400),L*0.985,'彈',COLORRED;
?
?來源:程序化99