改文華，謝謝2022210　[文華財經]

粗藍線下弱勢: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