[求助]幫忙修改謝謝
作者：文華財經 來源：cxh99.com 發布時間：2023年05月22日
-
咨詢內容：
?買線:=EMA(C,2);?賣線:=EMA(SLOPE(C,21)*20+C,42);?BU:=CROSS(買線,賣線);?SEL:=CROSS(賣線,買線);?AMOUNT:=AVPRICE*V;STICKLINE1(買線>=賣線,LOW,HIGH,0,1),COLORRED,LINETHICK3;?STICKLINE1(買線>=賣線,CLOSE,OPEN,3.2,1),COLORRED,LINETHICK3;?STICKLINE1(買線<賣線,LOW,HIGH,0,1),COLORGREEN;?STICKLINE1(買線<賣線,CLOSE,OPEN,3.2,1),COLORGREEN;?STICKLINE1(BU,OPEN,CLOSE,3.2,0),COLORYELLOW;?STICKLINE1(SEL,OPEN,CLOSE,3.2,0),COLORBLUE;?主力:=EMA(CLOSE,10),COLORRED;散戶:=EMA(CLOSE,5),COLORYELLOW;綠降:=(46.18*EMA (CLOSE,10)-31.82*EMA(CLOSE,4))/14.36,COLORGREEN,LINETHICK1;?操盤:=MA(CLOSE,9),COLORFF9C65,LINETHICK2;界點:=MA(CLOSE,20);?AH:HHV(H,100),COLORMAGENTA;?AL:LLV(L,100);AHL:=AH-AL;//A23,COLORLIGHTRED,LINETHICK2;?AL+AHL*0.191,COLORWHITE;?A19:AL+AHL*0.191,COLORLIGHTRED;?A38:AL+AHL*0.382,COLORGREEN;?A50:AL+AHL*0.500,COLORRED;?A61:AL+AHL*0.618,COLORFF9CFF;?A80:AL+AHL*0.809,COLORCYAN;?DRAWTEXT(ISLASTBAR,AH,'最高 ',COLORAAAAAA;?DRAWTEXT(ISLASTBAR,A80,'0.809% ',COLORMAGENTA,LINETHICK2;?DRAWTEXT(ISLASTBAR,A50,'0.500% ',COLORAAAAAA,LINETHICK2;?DRAWTEXT(ISLASTBAR,A61,'0.618% ',COLOR00AAAA,LINETHICK2;?DRAWTEXT(ISLASTBAR,A38,'0.382% ',COLOR00AAAA,LINETHICK2;?DRAWTEXT(ISLASTBAR,A19,'0.191% ',COLORWHITE,LINETHICK2;?DRAWTEXT(ISLASTBAR,AL,'最低 ',COLORAAAAAA,LINETHICK2;?F1:=ZIGZAG(C,16,1);?VERTLINE(F1<REF(F1,1),2),COLORAA8800;?XX1:=EMA(SLOPE(1,1)+C,3),COLORRED,LINETHICK3;?YY1:=EMA(SLOPE(1,1)+C,7),COLORBLUE;?DRAWTEXT(COUNT (XX1<YY1,5)=4 AND XX1>=YY1,C*0.95,'', COLORRED;?折線:ZIGZAG(C,20,1),COLORWHITE,LINETHICK2;?前波峰值:=PEAK(C,20,1,1);?前波谷值:=TROUGH(C,20,1,1);?DRAWNUMBER1(折線>REF(折線,1) AND REF(折線,1)<REF(折線,2),REF(C,1),-(前波峰值-REF(C,1))/前波峰值*100,2);?DRAWNUMBER1(折線<REF(折線,1) AND REF(折線,1)>REF(折線,2),REF(C,1),(REF(C,1)-前波谷值)/前波谷值*100,2);?MMS:=MA(SMA((L+H+2*C)/4-REF((L+H+2*C)/4,1),5,1)/SMA(ABS((L+H+2*C)/4-REF((L+H+2*C)/4,1)),5,1)*100,1)+50;?G1:=IF(MMS*-1>95,0,20);?UOO:=(-(((CLOSE-LLV(CLOSE,7))/(HHV(CLOSE,7)-LLV(CLOSE,7))*100=100)>0 AND G1)+1);?KS:=(((CLOSE - EMA(CLOSE,13)) / EMA(CLOSE,13)) * (0 - 100));?KS1:=IF(BARSCOUNT(C)=1,C/10000,(1-C/SMA(C,13,1))*100);?趨勢線:=EMA(((KS / 10) + EMA(CLOSE,10)),3);?AA:=-100*(趨勢線-CLOSE)/趨勢線;?AC:=(EMA(AA,5) );?SSL:=EMA(CLOSE,3);?MMV:=EMA(((SLOPE(CLOSE,22) * 20) + CLOSE),55);?MM:=MA(MMV,1);?STICKLINE1(((SSL>MM)),SSL,MM,0.01,0),COLORRED,LINETHICK3;?買線Q:=ZIGZAG(C,10,1);?賣線Q:=MA(買線,2);?BUQ:=CROSS(買線Q,賣線Q);?SELQ:=CROSS(賣線Q,買線Q);?DRAWTEXT(BUQ,L*0.99,'#39),LINETHICK2,COLOR00FFFF;?DRAWTEXT(SELQ,H*1.0,'#39),LINETHICK1,COLOR00FF00;?//DRAWTEXT("X09A.T">0,L*0.99,'',LINETHICK6,COLORFFFFFF;?//DRAWTEXT("X09A.T1">0,L*0.99,'',LINETHICK6,COLOR0000FF;?STICKLINE1(買線Q>=賣線Q,LOW,HIGH,0.1,0),COLOR0000CC;?STICKLINE1(買線Q>=賣線Q,CLOSE,OPEN,7,0),COLOR0000CC;?STICKLINE1(買線Q<賣線Q,CLOSE,OPEN,7,0),COLORCCCC00;?STICKLINE1(買線Q<賣線Q,LOW,HIGH,0.1,0),COLORCCCC00;?STICKLINE1(CROSS(買線Q,賣線Q),OPEN,CLOSE,7,0),COLOR00AAFF;?STICKLINE1(CROSS(賣線Q,買線Q),OPEN,CLOSE,7,0),COLOR00DD00;?DRAWICON(CROSS(ZIGZAG(C,10,1),REF(ZIGZAG(C,10,1),1)),LOW*1.07,7);?DRAWTEXT(CROSS(ZIGZAG(C,10,1),REF(ZIGZAG(C,10,1),1)),LOW*1.04,'#39);?DRAWICON(CROSS(REF(ZIGZAG(C,10,1),1),ZIGZAG(C,10,1)),HIGH*1.04,8);?DRAWTEXT(CROSS(REF(ZIGZAG(C,10,1),1),ZIGZAG(C,10,1)),HIGH*1.01,'#39);?VAR1:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),25);?VAR2:=HIGH-REF(HIGH,1);?VAR3:=REF(LOW,1)-LOW;?VAR4:=SUM(IF(VAR2>0 AND VAR2>VAR3,VAR2,0),25);?VAR5:=SUM(IF(VAR3>0 AND VAR3>VAR2,VAR3,0),25);?VAR6:=VAR4*100/VAR1;?VAR7:=VAR5*100/VAR1;?VAR8:=MA(ABS(VAR7-VAR6)/(VAR7+VAR6)*100,15);?VAR9:=(VAR8+REF(VAR8,15))/2;?A:=(VAR7>VAR6 AND VAR7>25 AND VAR6<25);?F:=100*(C-REF(C,1))/REF(C,1);?AAA:=REF(CLOSE,1);?BBB:=SMA(MAX(CLOSE-AAA,0),5,1)/SMA(ABS(CLOSE-AAA),5,1)*1000;?HHH:=BBB-LLV(BBB,10);?SS:=(MA(HHH,2)*3+HHH*13)/16;?短線買點:=IF(SS>13,MA(SS,2),SS)/6;?短線出擊:IF(CROSS(短線買點,1) AND (短線買點<30),10,0),COLORYELLOW,LINETHICK2;?MTM:=C-REF(C,1);?DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);?YXF:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);?藍:IF(FILTER(YXF=1,5),20,0),COLORBLUE,LINETHICK3;?紅: IF(FILTER(YXF=1,5),10,0),COLORRED,LINETHICK2;?黃: IF(FILTER(YXF=1,5),5,0),COLORYELLOW,LINETHICK1;?量能飽和度:IF((AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100) ,COLORWHITE,LINETHICK3;
老師這個指標只保留黃金分割線
?
?來源:程序化99
-
文華技術人員：
?參考：
買線:=EMA(C,2);?
賣線:=EMA(SLOPE(C,21)*20+C,42);?
BU:=CROSS(買線,賣線);?
SEL:=CROSS(賣線,買線);?
AMOUNT:=AVPRICE*V;
/*STICKLINE1(買線>=賣線,LOW,HIGH,0,1),COLORRED,LINETHICK3;?
STICKLINE1(買線>=賣線,CLOSE,OPEN,3.2,1),COLORRED,LINETHICK3;?
STICKLINE1(買線<賣線,LOW,HIGH,0,1),COLORGREEN;?
STICKLINE1(買線<賣線,CLOSE,OPEN,3.2,1),COLORGREEN;?
STICKLINE1(BU,OPEN,CLOSE,3.2,0),COLORYELLOW;?
STICKLINE1(SEL,OPEN,CLOSE,3.2,0),COLORBLUE;?
*/
主力:=EMA(CLOSE,10),COLORRED;
散戶:=EMA(CLOSE,5),COLORYELLOW;
綠降:=(46.18*EMA (CLOSE,10)-31.82*EMA(CLOSE,4))/14.36,COLORGREEN,LINETHICK1;?
操盤:=MA(CLOSE,9),COLORFF9C65,LINETHICK2;
界點:=MA(CLOSE,20);?
AH:HHV(H,100),COLORMAGENTA;?
AL:LLV(L,100);
AHL:=AH-AL;
//A23,COLORLIGHTRED,LINETHICK2;?
AL+AHL*0.191,COLORWHITE;?
A19:AL+AHL*0.191,COLORLIGHTRED;?
A38:AL+AHL*0.382,COLORGREEN;?
A50:AL+AHL*0.500,COLORRED;?
A61:AL+AHL*0.618,COLORFF9CFF;?
A80:AL+AHL*0.809,COLORCYAN;?
DRAWTEXT(ISLASTBAR,AH,'最高 ',COLORAAAAAA;?
DRAWTEXT(ISLASTBAR,A80,'0.809% ',COLORMAGENTA,LINETHICK2;?
DRAWTEXT(ISLASTBAR,A50,'0.500% ',COLORAAAAAA,LINETHICK2;?
DRAWTEXT(ISLASTBAR,A61,'0.618% ',COLOR00AAAA,LINETHICK2;?
DRAWTEXT(ISLASTBAR,A38,'0.382% ',COLOR00AAAA,LINETHICK2;?
DRAWTEXT(ISLASTBAR,A19,'0.191% ',COLORWHITE,LINETHICK2;?
DRAWTEXT(ISLASTBAR,AL,'最低 ',COLORAAAAAA,LINETHICK2;?
F1:=ZIGZAG(C,16,1);?
XX1:=EMA(SLOPE(1,1)+C,3),COLORRED,LINETHICK3;?
YY1:=EMA(SLOPE(1,1)+C,7),COLORBLUE;?
DRAWTEXT(COUNT (XX1<YY1,5)=4 AND XX1>=YY1,C*0.95,'', COLORRED;?
折線:=ZIGZAG(C,20,1),COLORWHITE,LINETHICK2;?
前波峰值:=PEAK(C,20,1,1);?
前波谷值:=TROUGH(C,20,1,1);?
DRAWNUMBER1(折線>REF(折線,1) AND REF(折線,1)<REF(折線,2),REF(C,1),-(前波峰值-REF(C,1))/前波峰值*100,2);?
DRAWNUMBER1(折線<REF(折線,1) AND REF(折線,1)>REF(折線,2),REF(C,1),(REF(C,1)-前波谷值)/前波谷值*100,2);?
MMS:=MA(SMA((L+H+2*C)/4-REF((L+H+2*C)/4,1),5,1)/SMA(ABS((L+H+2*C)/4-REF((L+H+2*C)/4,1)),5,1)*100,1)+50;?
G1:=IF(MMS*-1>95,0,20);?
UOO:=(-(((CLOSE-LLV(CLOSE,7))/(HHV(CLOSE,7)-LLV(CLOSE,7))*100=100)>0 AND G1)+1);?
KS:=(((CLOSE - EMA(CLOSE,13)) / EMA(CLOSE,13)) * (0 - 100));?
KS1:=IF(BARSCOUNT(C)=1,C/10000,(1-C/SMA(C,13,1))*100);?
趨勢線:=EMA(((KS / 10) + EMA(CLOSE,10)),3);?
AA:=-100*(趨勢線-CLOSE)/趨勢線;?
AC:=(EMA(AA,5) );?
SSL:=EMA(CLOSE,3);?
MMV:=EMA(((SLOPE(CLOSE,22) * 20) + CLOSE),55);?
MM:=MA(MMV,1);?
//STICKLINE1(((SSL>MM)),SSL,MM,0.01,0),COLORRED,LINETHICK3;?
買線Q:=ZIGZAG(C,10,1);?
賣線Q:=MA(買線,2);?
BUQ:=CROSS(買線Q,賣線Q);?
SELQ:=CROSS(賣線Q,買線Q);?
DRAWTEXT(BUQ,L*0.99,'#39),LINETHICK2,COLOR00FFFF;?
DRAWTEXT(SELQ,H*1.0,'#39),LINETHICK1,COLOR00FF00;?
//DRAWTEXT("X09A.T">0,L*0.99,'',LINETHICK6,COLORFFFFFF;?
//DRAWTEXT("X09A.T1">0,L*0.99,'',LINETHICK6,COLOR0000FF;?
/*STICKLINE1(買線Q>=賣線Q,LOW,HIGH,0.1,0),COLOR0000CC;?
STICKLINE1(買線Q>=賣線Q,CLOSE,OPEN,7,0),COLOR0000CC;?
STICKLINE1(買線Q<賣線Q,CLOSE,OPEN,7,0),COLORCCCC00;?
STICKLINE1(買線Q<賣線Q,LOW,HIGH,0.1,0),COLORCCCC00;?
STICKLINE1(CROSS(買線Q,賣線Q),OPEN,CLOSE,7,0),COLOR00AAFF;?
STICKLINE1(CROSS(賣線Q,買線Q),OPEN,CLOSE,7,0),COLOR00DD00;?
*/
DRAWICON(CROSS(ZIGZAG(C,10,1),REF(ZIGZAG(C,10,1),1)),LOW*1.07,7);?
DRAWTEXT(CROSS(ZIGZAG(C,10,1),REF(ZIGZAG(C,10,1),1)),LOW*1.04,'#39);?
DRAWICON(CROSS(REF(ZIGZAG(C,10,1),1),ZIGZAG(C,10,1)),HIGH*1.04,8);?
DRAWTEXT(CROSS(REF(ZIGZAG(C,10,1),1),ZIGZAG(C,10,1)),HIGH*1.01,'#39);?
VAR1:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),25);?
VAR2:=HIGH-REF(HIGH,1);?
VAR3:=REF(LOW,1)-LOW;?
VAR4:=SUM(IF(VAR2>0 AND VAR2>VAR3,VAR2,0),25);?
VAR5:=SUM(IF(VAR3>0 AND VAR3>VAR2,VAR3,0),25);?
VAR6:=VAR4*100/VAR1;?
VAR7:=VAR5*100/VAR1;?
VAR8:=MA(ABS(VAR7-VAR6)/(VAR7+VAR6)*100,15);?
VAR9:=(VAR8+REF(VAR8,15))/2;?
A:=(VAR7>VAR6 AND VAR7>25 AND VAR6<25);?
F:=100*(C-REF(C,1))/REF(C,1);?
AAA:=REF(CLOSE,1);?
BBB:=SMA(MAX(CLOSE-AAA,0),5,1)/SMA(ABS(CLOSE-AAA),5,1)*1000;?
HHH:=BBB-LLV(BBB,10);?
SS:=(MA(HHH,2)*3+HHH*13)/16;?
短線買點:=IF(SS>13,MA(SS,2),SS)/6;?
短線出擊:=IF(CROSS(短線買點,1) AND (短線買點<30),10,0),COLORYELLOW,LINETHICK2;?
MTM:=C-REF(C,1);?
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);?
YXF:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);?
藍:=IF(FILTER(YXF=1,5),20,0),COLORBLUE,LINETHICK3;?
紅:=IF(FILTER(YXF=1,5),10,0),COLORRED,LINETHICK2;?
黃:=IF(FILTER(YXF=1,5),5,0),COLORYELLOW,LINETHICK1;?
量能飽和度:=IF((AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100) ,COLORWHITE,LINETHICK3;
打印本文
關閉窗口