[求助]幫忙修改謝謝

作者：文華財經來源：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;