Originally posted by 6899 at 2005-3-28 21:44
无法引用CXZ,请公布原码。
谢谢。
客气了,取诸论坛,回馈论坛
CXZ原码:
0,pointdot;
DF:(EMA(C,12)-EMA(C,26))*1000;
DE:EMA(DF,9),LINETHICK1,COLORYELLOW;
{MACD : 2*(DF-DE), COLORSTICK;}
T1:=DF>REF(DF,1) AND REF(DF,1)<REF(DF,2);
T2:=DF<REF(DF,1) AND REF(DF,1)>REF(DF,2);
RM:=IF(T1 OR T2,REF(DF,1),0);
HA:=RM+N1*0.03;HB:=RM-N1*0.03;HC:=RM-N1*0.02;HD:=RM+N1*0.02;
PARTLINE(DF,DF>REF(DF,1),RGB(255,50,0),DF<REF(DF,1),RGB(0,255,0));
STICKLINE(T2,Ha,Hc,8,0 ),COLORFFAA00;
STICKLINE(T2,Ha,Hc,4.4,0),COLORCCCC22;
STICKLINE(T2,Ha,Hc,3.3,0),COLORCCDD33;
STICKLINE(T2,Ha,Hc,2.2,0),COLORCCEE44;
STICKLINE(T2,Ha,Hc,1.1,0),COLORCCFF55;
STICKLINE(T1,Hb,Hd,8 ,0 ),COLOR0000AA;
STICKLINE(T1,Hb,Hd,6.6,0),COLOR0011BB;
STICKLINE(T1,Hb,Hd,4.4,0),COLOR0022CC;
STICKLINE(T1,Hb,Hd,3.3,0),COLOR0033DD;
STICKLINE(T1,Hb,Hd,2.2,0),COLOR0044EE;
STICKLINE(T1,Hb,Hd,1.1,0),COLOR0055FF;
RSVK:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
KK:=SMA(RSVK,3,1);
DK:=SMA(KK,3,1);
JK:=3*KK-2*DK;
Jkk:(jk-50)*3;
partline(jkk,jkk>ref(jkk,1),rgb(255,0,255),jkk<ref(jkk,1),rgb(0,255,180));
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
周K:=MA("KDJ.K#WEEK"(9,3,3) ,5);
周D:=MA("KDJ.D#WEEK"(9,3,3) ,5);
周J:=MA("KDJ.J#WEEK"(9,3,3) ,5);
DRAWICON(k<30 and cross(k,d),0,1),align1;
周金:DRAWTEXT(CROSS("KDJ.K#WEEK"(9,3,3),"KDJ.D#WEEK"(9,3,3)) ,0,'▲'),align2,COLORyellow;
周死:DRAWTEXT(CROSS("KDJ.d#WEEK"(9,3,3),"KDJ.k#WEEK"(9,3,3)) ,0,'▼'),align2,COLORgreen;
月金:DRAWTEXT(CROSS("KDJ.K#MONTH"(9,3,3),"KDJ.D#MONTH"(9,3,3)) ,0,'▲'),align2,COLORMAGENTA;
月死:DRAWTEXT(CROSS("KDJ.D#MONTH"(9,3,3),"KDJ.K#MONTH"(9,3,3)) ,0,'▼'),align2,COLORblue
[ Last edited by dragonger on 2005-3-28 at 22:38 ] |