求老師轉換一下，謝謝 [文華財經]
-
咨詢內容：
第一個?
LC:=(C+0.618*REF(C,1)+0.382*REF(C,2)+0.236*REF(C,3)+0.146*REF(C,4))/2.382,COLORWHITE,LINETHICK1;<BR>GAO:=HHV(C,60)-LLV(C,60);<BR>RSI:=SMA(MAX(LC-REF(LC,1),0),5,1)/SMA(ABS(LC-REF(LC,1)),5,1);<BR>仙人:LC+GAO*(RSI-0.5),COLORFF3399,LINETHICK1;<BR>{STICKLINE(CROSS(RSI,0.1),仙人,REF(仙人,1),1,0),COLORYELLOW;<BR>STICKLINE(CROSS(0.9,RSI),仙人,REF(仙人,1),1,0),COLORCYAN;}<BR>攻防價位:(REF((H-L)*0.618+L,1)),NODRAW,COLORYELLOW;<BR>STICKLINE(ISLASTBAR,攻防價位-0.01,攻防價位,6,0),COLORYELLOW;<BR>MID:=(3*CLOSE+LOW+OPEN+HIGH)/6;<BR>多:(20*MID+19*REF(MID,1)+18*REF(MID,2)+17*REF(MID,3)+16*REF(MID,4)+15*REF(MID,5)+14*REF(MID,6)+13*REF(MID,7)+12*REF(MID,8)+11*REF(MID,9)+10*REF(MID,10)+9*REF(MID,11)+8*REF(MID,12)+7*REF(MID,13)+6*REF(MID,14)+5*REF(MID,15)+4*REF(MID,16)+3*REF(MID,17)+2*REF(MID,18)+REF(MID,20))/210,COLORRED;<BR>空:MA(多,6),COLORGREEN;<BR>水平面:MA(CLOSE,60),COLORYELLOW,POINTDOT;<BR>MS:IF(多>=REF(多,1),多,DRAWNULL),COLORRED,LINETHICK2;<BR>MM:IF(空>=REF(空,1),空,DRAWNULL),COLORYELLOW,LINETHICK2;?<BR>買:=CROSS(多,空);?<BR>賣:=CROSS(空,多);?<BR>DRAWICON(買,L*0.97,1);?<BR>DRAWICON(賣,H*1.03,2);?
第二個VAR55:=LLV(LOW,6);<br> VAR66:=HHV(HIGH,6);<br> VAR77:=(VAR66-VAR55)/10;<br> VAR88:=SMA((CLOSE-VAR55)/VAR77,20,1);<br> VARA:=3*VAR88-2*SMA(VAR88,3,1);<br> AA:=MA(EMA(WINNER(C),3),3);<br> <br> 籌碼集中度:AA-0.5,COLORYELLOW;<br> DRAWBAND(籌碼集中度,RGB(155,50,50),0,RGB(83,135,68));<br> STICKLINE(籌碼集中度>=0.4,0.4,籌碼集中度,4,1),COLORCYAN; <br> STICKLINE(籌碼集中度<=-0.4,-0.4,籌碼集中度,4,1),COLORLIGRAY; <br> 中線:EMA(AA-0.5,55),LINETHICK2,COLORLIGRAY;<br> IF(中線>REF(中線,1),中線,DRAWNULL),LINETHICK2,COLORMAGENTA;<br> IF(籌碼集中度>=REF(籌碼集中度,1),籌碼集中度,DRAWNULL),COLORRED;<br> IF(籌碼集中度<REF(籌碼集中度,1),籌碼集中度,DRAWNULL),COLORCYAN;<br> AB:=EMA(AA-0.5,6);<br> AC:=CROSS(AA-0.5,AB) AND AB<=-0.3;<br> AD:=CROSS(AB,AA-0.5) AND AB>=0.35;<br> DRAWICON(AC,AB,7);<br> DRAWICON(AD,AB,8);<br> VAR6:=(2*CLOSE+HIGH+LOW)/4;<br> VAR7:=LLV(LOW,13);<br> VAR8:=HHV(HIGH,13);<br> VAR9:=EMA((VAR6-VAR7)/(VAR8-VAR7)*100,13);<br> 仙人: (EMA(0.382*REF(VAR9,2)+0.618*VAR9,6)-50)/100,COLORYELLOW,LINETHICK2;<br> AAA:=EMA(仙人,3);<br> DRAWICON(仙人>=REF(仙人,1) AND REF(仙人,1)<=REF(仙人,2),仙人*0.95,1);<br> DRAWICON(仙人<=REF(仙人,1) AND REF(仙人,1)>=REF(仙人,2),仙人*1.05,2);<br> IF(仙人>REF(仙人,1),仙人,DRAWNULL),COLORRED,LINETHICK2;<br> IF(仙人<REF(仙人,1),仙人,DRAWNULL),COLORCYAN,LINETHICK2;<br> DRAWICON(CROSS(AA-0.5,中線) AND AA-0.5<0,AB,23);<br> A1:=BARSLAST(REF(CROSS(仙人,AAA),1));<br> 底背離:=REF(CLOSE,A1+1)>CLOSE AND 仙人>REF(仙人,A1+1) AND CROSS(仙人,AAA);<br> STICKLINE(底背離,0,0.1,3,0),COLORMAGENTA;<br> DRAWLINE(A1=0,AAA,底背離,AAA,0),COLORRED,LINETHICK4;<br> A2:=BARSLAST(REF(CROSS(AAA,仙人),1));<br> 頂背離:=REF(CLOSE,A2+1)<CLOSE AND REF(仙人,A2+1)>仙人 AND CROSS(AAA,仙人);<br> DRAWLINE(A2=0,AAA,頂背離,AAA,0),COLORGREEN,LINETHICK4;<br>
第三個
DIFF:EMA(CLOSE,6)-EMA(CLOSE,13),COLORWHITE,LINETHICK2;<br> DEA:EMA(DIFF,3),COLORYELLOW, LINETHICK2;<br> MACD:2*(DIFF-DEA),COLORRED;</p><p align="left">STICKLINE(MACD>=0,MACD,0,4,1),COLORF00FF0;<br> STICKLINE(MACD<0,MACD,0,4,1),COLORWHITE;<br> STICKLINE(MACD<REF(MACD,1)ANDMACD>0,0,MACD,4,0 ),COLOR00AAFF;<br> STICKLINE(MACD<REF(MACD,1)ANDMACD>0,0,MACD,3.3,0 ),COLOR00BBFF;<br> STICKLINE(MACD<REF(MACD,1)ANDMACD>0,0,MACD,2.2,0 ),COLOR00CCFF;<br> STICKLINE(MACD<REF(MACD,1)ANDMACD>0,0,MACD,1.65,0 ),COLOR00DDFF;<br> STICKLINE(MACD<REF(MACD,1)ANDMACD>0,0,MACD,1.1,0 ),COLOR00EEFF;<br> STICKLINE(MACD<REF(MACD,1)ANDMACD>0,0,MACD,0.55,0 ),COLOR00FFFF;<br> STICKLINE(MACD>=REF(MACD,1)ANDMACD>0,0,MACD,4 ,0 ),COLOR0000AA;<br> STICKLINE(MACD>=REF(MACD,1)ANDMACD>0,0,MACD,3.3 ,0 ),COLOR0011BB;<br> STICKLINE(MACD>=REF(MACD,1)ANDMACD>0,0,MACD,2.2,0 ),COLOR0022CC;<br> STICKLINE(MACD>=REF(MACD,1)ANDMACD>0,0,MACD,1.65 ,0 ),COLOR0033DD;<br> STICKLINE(MACD>=REF(MACD,1)ANDMACD>0,0,MACD,1.1 ,0 ),COLOR0044EE;<br> STICKLINE(MACD>=REF(MACD,1)ANDMACD>0,0,MACD,0.55 ,0 ),COLOR0055FF;<br> STICKLINE(MACD>REF(MACD,1)ANDMACD<0,0,MACD,4,0 ),COLORAA00BB;<br> STICKLINE(MACD>REF(MACD,1)ANDMACD<0,0,MACD,3.3 ,0 ),COLORBB11BB;<br> STICKLINE(MACD>REF(MACD,1)ANDMACD<0,0,MACD,2.2,0 ),COLORCC22BB;<br> STICKLINE(MACD>REF(MACD,1)ANDMACD<0,0,MACD,1.65,0 ),COLORDD33BB;<br> STICKLINE(MACD>REF(MACD,1)ANDMACD<0,0,MACD,1.1,0 ),COLOREE44BB;<br> STICKLINE(MACD>REF(MACD,1)ANDMACD<0,0,MACD,0.55 ,0 ),COLORFF55BB;<br> STICKLINE(MACD<=REF(MACD,1)ANDMACD<0,0,MACD,4,0 ),COLORFFAA00;<br> STICKLINE(MACD<=REF(MACD,1)ANDMACD<0,0,MACD,3.3 ,0 ),COLORFFBB11;<br> STICKLINE(MACD<=REF(MACD,1)ANDMACD<0,0,MACD,2.2,0 ),COLORFFCC22;<br> STICKLINE(MACD<=REF(MACD,1)ANDMACD<0,0,MACD,1.65 ,0 ),COLORFFDD33;<br> STICKLINE(MACD<=REF(MACD,1)ANDMACD<0,0,MACD,1.1 ,0 ),COLORFFEE44;<br> STICKLINE(MACD<=REF(MACD,1)ANDMACD<0,0,MACD,0.55 ,0 ),COLORFFFF55;</p><p align="left"><br> 金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;<br> STICKLINE(金叉,0,-0.18,6,0),COLORRED;<br> DRAWTEXT(金叉,-0.1,'金叉',COLORRED;<br> JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));<br> 二次金叉:=CROSS(DIFF,DEA) AND DEA<0 ANDCOUNT(JCCOUNT=2,21)=1;<br> STICKLINE(二次金叉,0,-0.18,6,0),COLORFF00FF;<br> DRAWICON(二次金叉,DEA*1.04,13) ;<br> DRAWTEXT(二次金叉,-0.1,'二次金叉',COLORFF00FF;<br> A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));<br> 底背離:=REF(CLOSE,A1+1)>CLOSE ANDDIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);<br> STICKLINE(底背離,0,0.13,6,0),COLOR00FF00;<br> DRAWLINE(A1=0,DEA,底背離,DEA,0),COLORRED,LINETHICK2;<br> DRAWTEXT(底背離,0.1,'底背離',COLOR00FF00;<br> A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));<br> 頂背離:=REF(CLOSE,A2+1)<CLOSE ANDREF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);<br>
DRAWLINE(A2=0,DEA,頂背離,DEA,0),COLORBLUE,LINETHICK2;</p><p align="left">DRAWTEXT(CROSS(DEA,DIFF ),0,'叉',COLORYELLOW;</p>DIFF:EMA(CLOSE,6)-EMA(CLOSE,13),COLORWHITE,LINETHICK2;<br>
DEA:EMA(DIFF,3),COLORYELLOW, LINETHICK2;<br> MACD:2*(DIFF-DEA),COLORRED;</p><p align="left">STICKLINE(MACD>=0,MACD,0,4,1),COLORF00FF0;<br> STICKLINE(MACD<0,MACD,0,4,1),COLORWHITE;<br> STICKLINE(MACD<REF(MACD,1)ANDMACD>0,0,MACD,4,0 ),COLOR00AAFF;<br> STICKLINE(MACD<REF(MACD,1)ANDMACD>0,0,MACD,3.3,0 ),COLOR00BBFF;<br> STICKLINE(MACD<REF(MACD,1)ANDMACD>0,0,MACD,2.2,0 ),COLOR00CCFF;<br> STICKLINE(MACD<REF(MACD,1)ANDMACD>0,0,MACD,1.65,0 ),COLOR00DDFF;<br> STICKLINE(MACD<REF(MACD,1)ANDMACD>0,0,MACD,1.1,0 ),COLOR00EEFF;<br> STICKLINE(MACD<REF(MACD,1)ANDMACD>0,0,MACD,0.55,0 ),COLOR00FFFF;<br> STICKLINE(MACD>=REF(MACD,1)ANDMACD>0,0,MACD,4 ,0 ),COLOR0000AA;<br> STICKLINE(MACD>=REF(MACD,1)ANDMACD>0,0,MACD,3.3 ,0 ),COLOR0011BB;<br> STICKLINE(MACD>=REF(MACD,1)ANDMACD>0,0,MACD,2.2,0 ),COLOR0022CC;<br> STICKLINE(MACD>=REF(MACD,1)ANDMACD>0,0,MACD,1.65 ,0 ),COLOR0033DD;<br> STICKLINE(MACD>=REF(MACD,1)ANDMACD>0,0,MACD,1.1 ,0 ),COLOR0044EE;<br> STICKLINE(MACD>=REF(MACD,1)ANDMACD>0,0,MACD,0.55 ,0 ),COLOR0055FF;<br> STICKLINE(MACD>REF(MACD,1)ANDMACD<0,0,MACD,4,0 ),COLORAA00BB;<br> STICKLINE(MACD>REF(MACD,1)ANDMACD<0,0,MACD,3.3 ,0 ),COLORBB11BB;<br> STICKLINE(MACD>REF(MACD,1)ANDMACD<0,0,MACD,2.2,0 ),COLORCC22BB;<br> STICKLINE(MACD>REF(MACD,1)ANDMACD<0,0,MACD,1.65,0 ),COLORDD33BB;<br> STICKLINE(MACD>REF(MACD,1)ANDMACD<0,0,MACD,1.1,0 ),COLOREE44BB;<br> STICKLINE(MACD>REF(MACD,1)ANDMACD<0,0,MACD,0.55 ,0 ),COLORFF55BB;<br> STICKLINE(MACD<=REF(MACD,1)ANDMACD<0,0,MACD,4,0 ),COLORFFAA00;<br> STICKLINE(MACD<=REF(MACD,1)ANDMACD<0,0,MACD,3.3 ,0 ),COLORFFBB11;<br> STICKLINE(MACD<=REF(MACD,1)ANDMACD<0,0,MACD,2.2,0 ),COLORFFCC22;<br> STICKLINE(MACD<=REF(MACD,1)ANDMACD<0,0,MACD,1.65 ,0 ),COLORFFDD33;<br> STICKLINE(MACD<=REF(MACD,1)ANDMACD<0,0,MACD,1.1 ,0 ),COLORFFEE44;<br> STICKLINE(MACD<=REF(MACD,1)ANDMACD<0,0,MACD,0.55 ,0 ),COLORFFFF55;</p><p align="left"><br> 金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;<br> STICKLINE(金叉,0,-0.18,6,0),COLORRED;<br> DRAWTEXT(金叉,-0.1,'金叉',COLORRED;<br> JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));<br> 二次金叉:=CROSS(DIFF,DEA) AND DEA<0 ANDCOUNT(JCCOUNT=2,21)=1;<br> STICKLINE(二次金叉,0,-0.18,6,0),COLORFF00FF;<br> DRAWICON(二次金叉,DEA*1.04,13) ;<br> DRAWTEXT(二次金叉,-0.1,'二次金叉',COLORFF00FF;<br> A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));<br> 底背離:=REF(CLOSE,A1+1)>CLOSE ANDDIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);<br> STICKLINE(底背離,0,0.13,6,0),COLOR00FF00;<br> DRAWLINE(A1=0,DEA,底背離,DEA,0),COLORRED,LINETHICK2;<br> DRAWTEXT(底背離,0.1,'底背離',COLOR00FF00;<br> A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));<br> 頂背離:=REF(CLOSE,A2+1)<CLOSE ANDREF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);<br>
DRAWLINE(A2=0,DEA,頂背離,DEA,0),COLORBLUE,LINETHICK2;</p><p align="left">DRAWTEXT(CROSS(DEA,DIFF ),0,'叉',COLORYELLOW;</p>
?
?來源:程序化99
-
文華技術人員：
?
一
LC:=(C+0.618*REF(C,1)+0.382*REF(C,2)+0.236*REF(C,3)+0.146*REF(C,4))/2.382,COLORWHITE,LINETHICK1;GAO:=HHV(C,60)-LLV(C,60);RSI:=SMA(MAX(LC-REF(LC,1),0),5,1)/SMA(ABS(LC-REF(LC,1)),5,1);仙人:LC+GAO*(RSI-0.5),COLOR9933FF,LINETHICK1;攻防價位:(REF((H-L)*0.618+L,1)),NODRAW,COLORYELLOW;STICKLINE1(ISLASTBAR,攻防價位-0.01,攻防價位,6,0),COLORYELLOW;MID:=(3*CLOSE+LOW+OPEN+HIGH)/6;多:(20*MID+19*REF(MID,1)+18*REF(MID,2)+17*REF(MID,3)+16*REF(MID,4)+15*REF(MID,5)+14*REF(MID,6)+13*REF(MID,7)+12*REF(MID,8)+11*REF(MID,9)+10*REF(MID,10)+9*REF(MID,11)+8*REF(MID,12)+7*REF(MID,13)+6*REF(MID,14)+5*REF(MID,15)+4*REF(MID,16)+3*REF(MID,17)+2*REF(MID,18)+REF(MID,20))/210,COLORRED;空:MA(多,6),COLORGREEN;水平面:MA(CLOSE,60),COLORYELLOW,POINTDOT;MS:IF(多>=REF(多,1),多,NULL),COLORRED,LINETHICK2;MM:IF(空>=REF(空,1),空,NULL),COLORYELLOW,LINETHICK2;?買:=CROSS(多,空);?賣:=CROSS(空,多);?DRAWICON(買,L*0.97,1);?DRAWICON(賣,H*1.03,2);?
二
VAR55:=LLV(LOW,6);VAR66:=HHV(HIGH,6);VAR77:=(VAR66-VAR55)/10;VAR88:=SMA((CLOSE-VAR55)/VAR77,20,1);VARA:=3*VAR88-2*SMA(VAR88,3,1);AA:=MA(EMA(WINNER(C),3),3);籌碼集中度:AA-0.5,COLORYELLOW;FILLRGN(籌碼集中度>0,0,籌碼集中度,RGB(155,50,50));FILLRGN(籌碼集中度<0,0,籌碼集中度,RGB(83,135,68));STICKLINE1(籌碼集中度>=0.4,0.4,籌碼集中度,4,1),COLORCYAN;?STICKLINE1(籌碼集中度<=-0.4,-0.4,籌碼集中度,4,1),COLORGRAY;?中線:EMA(AA-0.5,55),LINETHICK2,COLORGRAY;IF(中線>REF(中線,1),中線,NULL),LINETHICK2,COLORMAGENTA;IF(籌碼集中度>=REF(籌碼集中度,1),籌碼集中度,NULL),COLORRED;IF(籌碼集中度<REF(籌碼集中度,1),籌碼集中度,NULL),COLORCYAN;AB:=EMA(AA-0.5,6);AC:=CROSS(AA-0.5,AB) AND AB<=-0.3;AD:=CROSS(AB,AA-0.5) AND AB>=0.35;DRAWICON(AC,AB,7);DRAWICON(AD,AB,8);VAR6:=(2*CLOSE+HIGH+LOW)/4;VAR7:=LLV(LOW,13);VAR8:=HHV(HIGH,13);VAR9:=EMA((VAR6-VAR7)/(VAR8-VAR7)*100,13);仙人: (EMA(0.382*REF(VAR9,2)+0.618*VAR9,6)-50)/100,COLORYELLOW,LINETHICK2;AAA:=EMA(仙人,3);DRAWICON(仙人>=REF(仙人,1) AND REF(仙人,1)<=REF(仙人,2),仙人*0.95,1);DRAWICON(仙人<=REF(仙人,1) AND REF(仙人,1)>=REF(仙人,2),仙人*1.05,2);IF(仙人>REF(仙人,1),仙人,NULL),COLORRED,LINETHICK2;IF(仙人<REF(仙人,1),仙人,NULL),COLORCYAN,LINETHICK2;DRAWICON(CROSS(AA-0.5,中線) AND AA-0.5<0,AB,23);A1:=BARSLAST(REF(CROSS(仙人,AAA),1));底背離:=REF(CLOSE,A1+1)>CLOSE AND 仙人>REF(仙人,A1+1) AND CROSS(仙人,AAA);STICKLINE1(底背離,0,0.1,3,0),COLORMAGENTA;DRAWLINE(A1=0,AAA,底背離,AAA,0),COLORRED,LINETHICK4;A2:=BARSLAST(REF(CROSS(AAA,仙人),1));頂背離:=REF(CLOSE,A2+1)<CLOSE AND REF(仙人,A2+1)>仙人 AND CROSS(AAA,仙人);DRAWLINE(A2=0,AAA,頂背離,AAA,0),COLORGREEN,LINETHICK4; ?
三
DIFF:EMA(CLOSE,6)-EMA(CLOSE,13),COLORWHITE,LINETHICK2;DEA:EMA(DIFF,3),COLORYELLOW, LINETHICK2;MACD:2*(DIFF-DEA),COLORRED;STICKLINE1(MACD>=0,MACD,0,4,1),COLORF00FF0;STICKLINE1(MACD<0,MACD,0,4,1),COLORWHITE;STICKLINE1(MACD<REF(MACD,1) AND MACD>0,0,MACD,4,0 ),COLOR00AAFF;?STICKLINE1(MACD<REF(MACD,1) AND MACD>0,0,MACD,3.3,0 ),COLOR00BBFF;?STICKLINE1(MACD<REF(MACD,1) AND MACD>0,0,MACD,2.2,0 ),COLOR00CCFF;?STICKLINE1(MACD<REF(MACD,1) AND MACD>0,0,MACD,1.65,0 ),COLOR00DDFF;?STICKLINE1(MACD<REF(MACD,1) AND MACD>0,0,MACD,1.1,0 ),COLOR00EEFF;?STICKLINE1(MACD<REF(MACD,1) AND MACD>0,0,MACD,0.55,0 ),COLOR00FFFF;?STICKLINE1(MACD>=REF(MACD,1) AND MACD>0,0,MACD,4 ,0 ),COLOR0000AA;?STICKLINE1(MACD>=REF(MACD,1) AND MACD>0,0,MACD,3.3 ,0 ),COLOR0011BB;?STICKLINE1(MACD>=REF(MACD,1) AND MACD>0,0,MACD,2.2,0 ),COLOR0022CC;?STICKLINE1(MACD>=REF(MACD,1) AND MACD>0,0,MACD,1.65 ,0 ),COLOR0033DD;?STICKLINE1(MACD>=REF(MACD,1) AND MACD>0,0,MACD,1.1 ,0 ),COLOR0044EE;?STICKLINE1(MACD>=REF(MACD,1) AND MACD>0,0,MACD,0.55 ,0 ),COLOR0055FF;?STICKLINE1(MACD>REF(MACD,1) AND MACD<0,0,MACD,4,0 ),COLORAA00BB;?STICKLINE1(MACD>REF(MACD,1) AND MACD<0,0,MACD,3.3 ,0 ),COLORBB11BB;?STICKLINE1(MACD>REF(MACD,1) AND MACD<0,0,MACD,2.2,0 ),COLORCC22BB;?STICKLINE1(MACD>REF(MACD,1) AND MACD<0,0,MACD,1.65,0 ),COLORDD33BB;?STICKLINE1(MACD>REF(MACD,1) AND MACD<0,0,MACD,1.1,0 ),COLOREE44BB;?STICKLINE1(MACD>REF(MACD,1) AND MACD<0,0,MACD,0.55 ,0 ),COLORFF55BB;?STICKLINE1(MACD<=REF(MACD,1) AND MACD<0,0,MACD,4,0 ),COLORFFAA00;?STICKLINE1(MACD<=REF(MACD,1) AND MACD<0,0,MACD,3.3 ,0 ),COLORFFBB11;?STICKLINE1(MACD<=REF(MACD,1) AND MACD<0,0,MACD,2.2,0 ),COLORFFCC22;?STICKLINE1(MACD<=REF(MACD,1) AND MACD<0,0,MACD,1.65 ,0 ),COLORFFDD33;?STICKLINE1(MACD<=REF(MACD,1) AND MACD<0,0,MACD,1.1 ,0 ),COLORFFEE44;?STICKLINE1(MACD<=REF(MACD,1) AND MACD<0,0,MACD,0.55 ,0 ),COLORFFFF55;金叉:=CROSS(DIFF,DEA)? AND? DIFF<-0.1;?STICKLINE1(金叉,0,-0.18,6,0),COLORRED;?DRAWTEXT(金叉,-0.1,' 金叉'),COLORRED;?JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));?二次金叉:=CROSS(DIFF,DEA)? AND? DEA<0? AND COUNT(JCCOUNT=2,21)=1;?STICKLINE1(二次金叉,0,-0.18,6,0),COLORFF00FF;?DRAWICON(二次金叉,DEA*1.04,13) ;?DRAWTEXT(二次金叉,-0.1,' 二次金叉'),COLORFF00FF;?A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));?底背離:=REF(CLOSE,A1+1)>CLOSE? AND DIFF>REF(DIFF,A1+1)? AND? CROSS(DIFF,DEA);?STICKLINE1(底背離,0,0.13,6,0),COLOR00FF00;?DRAWLINE(A1=0,DEA,底背離,DEA,0),COLORRED,LINETHICK2;?DRAWTEXT(底背離,0.1,' 底背離'),COLOR00FF00;?A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));?頂背離:=REF(CLOSE,A2+1)<CLOSE? AND REF(DIFF,A2+1)>DIFF? AND? CROSS(DEA,DIFF);?DRAWLINE(A2=0,DEA,頂背離,DEA,0),COLORBLUE,LINETHICK2;DRAWTEXT(CROSS(DEA,DIFF ),0,'死叉'),COLORYELLOW;?
?來源: www.kzuj.com.cn
-
文華客服：
?
PARAMS
NUMERIC NOTBEF(9.00);
NUMERIC NOTAFT(14.55);
NUMERIC F1(0.01);
NUMERIC F2(1);
NUMERIC F3(0.01);
NUMERIC REVERSE(1.00);
NUMERIC RANGEMIN(0.1);
NUMERIC XDIV(3);
NUMERIC OFFSET(5);
VARS
NUMERICSERIES SSETUP(0);
NUMERICSERIES BSETUP(0);
NUMERICSERIES SENTER(0);
NUMERICSERIES BENTER(0);
NUMERICSERIES BBREAK(0);
NUMERICSERIES SBREAK(0);
NUMERICSERIES LTODAY(0);
NUMERICSERIES HITODAY(9999);
NUMERICSERIES STARTNOW(0);
NUMERICSERIES DIV(0);
BOOLSERIES RFILTER(FALSE);
NUMERIC I_REVERSE;
NUMERIC I_RANGEMIN;
NUMERIC I_VB;
NUMERIC I_VS;
NUMERIC I_OFFSET;
NUMERIC OFFSET2;
BEGIN
IF(BARSTATUS==2 && TIME==0.090000 && HIGH==LOW ) RETURN;?
I_OFFSET = OFFSET*MINMOVE*PRICESCALE;
I_REVERSE = REVERSE*(OPEND(0)/100);
I_RANGEMIN = RANGEMIN*(OPEND(0)/100);
IF(BARSTATUS==0)
{ STARTNOW=0;
DIV=MAX(XDIV,1);
}
IF(DATE != DATE[1])
{ SETGLOBALVAR(0,0);// 將第1個全局變量設置為0,將第2個全局變量設置為0
? ? ? ? SETGLOBALVAR(1,0);
? ? ? ? STARTNOW=STARTNOW+1;
? ? ? ? SSETUP=HITODAY[1]+F1*(CLOSE[1]-LTODAY[1]);
? ? ? ? SENTER=((1+F2)/2)*(HITODAY[1]+CLOSE[1])-(F2)*LTODAY[1];
? ? ? ? BENTER=((1+F2)/2)*(LTODAY[1]+CLOSE[1])-(F2)*HITODAY[1];
? ? ? ? BSETUP=LTODAY[1]-F1*(HITODAY[1]-CLOSE[1]);
? ? ? ? BBREAK=SSETUP+F3*(SSETUP-BSETUP);
? ? ? ? SBREAK=BSETUP-F3*(SSETUP-BSETUP);
? ? ? ? HITODAY=HIGH;
? ? ? ? LTODAY=LOW;
? ? ? ? RFILTER=(HITODAY[1]-LTODAY[1])>=I_RANGEMIN;
}
IF(HIGH>HITODAY)
{ HITODAY=HIGH;
}
IF(LOW<LTODAY)
{ LTODAY=LOW;
}
IF(TIME*100>NOTBEF AND TIME*100<NOTAFT AND STARTNOW>=2 AND RFILTER)//當前公式應用商品在當前BAR的時間乘以100》=9點或者小于14.55分
{ IF(TIME != GETGLOBALVAR(1) AND GETGLOBALVAR(1) != 0)
? ? ? ? {
? ? ? ? ? ? ? ? SETGLOBALVAR(1,10000);
? ? ? ? }
? ? ? ? IF(HITODAY>=SSETUP AND MARKETPOSITION>-1 AND GETGLOBALVAR(1)<1)
? ? ? ? {IF(LOW<=(SENTER+(HITODAY-SSETUP)/DIV))
? ? ? ? ? ? ? ? { SELLSHORT(1,SENTER+(HITODAY-SSETUP)/DIV+I_OFFSET);
? ? ? ? ? ? ? ? ? ? ? ? SETGLOBALVAR(1,TIME);
? ? ? ? ? ? ? ? ? ? ? ? RETURN;
}}
? ? ? ? IF(LTODAY<=BSETUP AND MARKETPOSITION<1? AND GETGLOBALVAR(1)<1)
? ? ? ? { IF(HIGH>=(BENTER-(BSETUP-LTODAY)/DIV))
? ? ? ? ? ? ? ? {? BUY(1,BENTER-(BSETUP-LTODAY)/DIV-I_OFFSET);
? ? ? ? ? ? ? ? ? ? ? ? SETGLOBALVAR(1,TIME);
? ? ? ? ? ? ? ? ? ? ? ? RETURN;?
}}
? ? ? ? IF(MARKETPOSITION==-1) ? ? ? ? { SETGLOBALVAR(0,1); ? ? ? ? ? ? ? ? IF(HIGH-ENTRYPRICE>=I_REVERSE) ? ? ? ? ? ? ? ? {? ? BUYTOCOVER(1,ENTRYPRICE); ? ? ? ? ? ? ? ? ? ? ? ? RETURN; }} ? ? ? ? IF(MARKETPOSITION==1) ? ? ? ? {? ?SETGLOBALVAR(0,1); ? ? ? ? ? ? ?IF(ENTRYPRICE-LOW>=I_REVERSE) ? ? ? ? ? ? ? ? { SELL(1,ENTRYPRICE); ? ? ? ? ? ? ? ? ? ?RETURN; }} ? ? ? ? IF(MARKETPOSITION==0) ? ? ? ? { IF(HIGH>=BBREAK AND GETGLOBALVAR(0) == 0) ? ? ? ? ? ? ? ? {? ?BUY(1,BBREAK-I_OFFSET); ? ? ? ? ? ? ? ? ? ? ? RETURN;? }} ? ? ? ? IF(MARKETPOSITION==0) ? ? ? ? { IF(LOW<=SBREAK? AND GETGLOBALVAR(0) == 0) ? ? ? ? ? ? ? ? {SELLSHORT(1,SBREAK+I_OFFSET); ? ? ? ? ? ? ? ? ? RETURN;? ? } }}
IF(TIME*100>=NOTAFT AND TIME<0.1600) {? IF(MARKETPOSITION==-1) ? ? ? ? {? BUYTOCOVER(1,OPEN);? } ? ? ? ? IF(MARKETPOSITION==1) ? ? ? ? {? SELL(1,OPEN); }} END?
-
網友回復：
?
3樓是類C語言且有交易指令，wh6不支持，需要修改為MQ的模型
MQ是高端程序化軟件且是付費軟件，下載地址：
https://www.wenhua.com.cn
另外，新的問題建議您重新發帖提問
有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友
可聯系技術人員 QQ: 262069696 或微信：cxhjy888 進行 有償收費 編寫！(注：由于人數限制，QQ或微信請選擇方便的一個聯系我們就行，謝謝您！)
相關文章
-
沒有相關內容
會員登錄/注冊