区意和 2004-7-28 08:59
三丰公式源码[转帖]
不知道对大家是否有用，看到别人贴出来，顺手弄来给大家看看：
三丰礼物1 MACD、RSI、KDJ、TRIX同图显示组合指标
RSI6:SMA(MAX(C-REF(C,1),0),6,1)/SMA(ABS(C-REF(C,1)),6,1)*100;
DIFF:=EMA(C,5)-EMA(C,20);DEA:=EMA(DIFF,10);
MACD:500*(DIFF-DEA)/EMA(C,30) colorred pointdot;
RSV:=(C-LLV(L,20))/(HHV(H,20)-LLV(L,20))*100;
FK:=SMA(RSV,5,1);
K20:SMA(FK,5,1) pointdot COLORyellow;
D20:SMA(K20,5,1) pointdot COLORff9999;
TR:=EMA(EMA(EMA(C,5),5),5);
TRIX:(TR-REF(TR,1))/REF(TR,1)*1000 pointdot colormagenta;
TRMA:EMA(TRIX,30) pointdot colorff8888;
STICKLINE(K20>=D20,D20,K20,10,0) COLORyellow;
STICKLINE(K20<=D20,D20,K20,10,0) COLORff9999;
STICKLINE(MACD>=0,0,MACD,10,0) COLORred;
STICKLINE(MACD<=0,0,MACD,10,0) COLORgreen;
STICKLINE(TRIX>=TRMA,TRIX+60,TRMA+60,10,0) COLORmagenta;
STICKLINE(TRIX<=TRMA,TRIX+60,TRMA+60,10,0) COLORff9999;
三丰礼物2 MACD、RSI、日周KDJ同图显示组合指标
Rsi6:SMA(MAX(C-REF(C,1),0),6,1)/SMA(ABS(C-REF(C,1)),6,1)*100;
MACD:300*"MACD.MACD#DAY"(20,5,10)/EMA(C,30) colorred pointdot;
日K:"SLOWKD.K#DAY"(20,5,5,5) pointdot COLORyellow;
日D:"SLOWKD.D#DAY"(20,5,5,5) pointdot COLORff9999;
周K:"SLOWKD.K#WEEK"(5,3,3,3) pointdot COLORmagenta;
周D:"SLOWKD.D#WEEK"(5,3,3,3) pointdot COLORff9999;
STICKLINE(日K>=日D,日D,日K,10,0) COLORyellow;
STICKLINE(日K<日D,日D,日K,10,0) COLORff9999;
STICKLINE(周K>=周D,周D,周K,10,0) COLORmagenta;
STICKLINE(周K<周D,周K,周D,10,0) COLORff9999;
STICKLINE(MACD>=0,0,MACD,10,0) COLORred;
STICKLINE(MACD<=0,0,MACD,10,0) COLORgreen;
三丰礼物3 MACD、日周KDJ同图显示组合主图指标
MA10:MA(C,10);
MA30:MA(C,30);
MA60:MA(C,60);
MA90:MA(C,90);
MA120:MA(C,120) colorgreen;
MACD:="MACD.MACD"(20,5,10);
K20:="SLOWKD.K"(20,5,5,5);
D20:="SLOWKD.D"(20,5,5,5);
周K:="SLOWKD.K#WEEK"(5,3,3,3);
周D:="SLOWKD.D#WEEK"(5,3,3,3);
L000:=(K20>=D20 AND MACD>=0) OR (周K>=周D
AND MACD>=0) OR (周K>=周D AND K20>=D20);
L001:=K20>=D20 AND 周K>=周D AND MACD>=0;
STICKLINE(L001=0,C,O,6,0) COLORff8888;
STICKLINE(L001=0,H,L,0,0) COLORff8888;
STICKLINE(L000>0,C,O,6,0) COLORyellow;
STICKLINE(L000>0,H,L,0,0) COLORyellow;
STICKLINE(L001>0,C,O,6,0) COLORred;
STICKLINE(L001>0,H,L,0,0) COLORred;
STICKLINE(C<=REF(C,1) AND L001>0,C,O,6,0) COLORgreen;
STICKLINE(C<=REF(C,1) AND L001>0,H,L,0,0) COLORgreen;
SF庄见愁
庄家筹码估算值:EMA(WINNER(C)*70,3) colormagenta linethick2;
散户筹码估算值:EMA((WINNER(C*1.1)-WINNER(C*0.9))*70,3) colorgreen linethick2;
SF庄见愁Z
获利线:EMA(WINNER(C)*100,3) colorwhite;
庄筹线:EMA(WINNER(C)*70,5) colorred linethick2;
散筹线:EMA((WINNER(C*1.1)-WINNER(C*0.9))*70,5)colorgreen linethick2;
收:=winner(C)*100;开:=winner(O)*100;
博弈K线长:MAX(ABS(收-开),ABS(收-REF(收,1)))pointdot colormagenta;
STICKLINE(庄筹线>散筹线,庄筹线,散筹线,0,0),COLORred;
stickline(收>REF(收,1),0,博弈K线长,6,0),colormagenta;
stickline(收<REF(收,1),0,博弈K线长,0,0),color999999;
SF太极拳
KS13:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*(-100);
REF(KS13,1)>=16 AND REF(KS13,1)/KS13>=1.23;
大道至简，三丰KDJ指标
三丰KDJ指标的原码：
CC:=WINNER(CLOSE)*100;
CO:=WINNER(OPEN)*100;
CH:=WINNER(HIGH)*100;
CL:=WINNER(LOW)*100;
RSV:=(CC-LLV(CL,20))/(HHV(CH,20)-LLV(CL,20))*100;
FK:=SMA(RSV,5,1); K:SMA(FK,5,1);
D:SMA(K,5,1); J: K*3-D*2;
见底买入:IF(REF(K,1)<20 AND CROSS(K,D),30,00)linethick2,colorred;
见顶卖出:IF(REF(K,1)>80 AND CROSS(D,K),60,90)linethick2 colorgreen;
大道至简，三丰MACD指标
三丰MACD指标的原码：
CC:=WINNER(CLOSE)*100;
DIFF:EMA(CC,5)-EMA(CC,20);
DEA:EMA(DIFF,10);
MACD:(DIFF-DEA),COLORSTICK LINETHICK3;
大道至简，三丰TRIX指标
三丰TRIX指标的原码：
CC:=WINNER(CLOSE)*100;
TR:=EMA(EMA(EMA(CC,10),10),10);
TRIX:(TR-REF(TR,1))/REF(TR,1)*100;
TRMA:EMA(TRIX,20);
大道至简，三丰RSI指标
三丰RSI指标的原码：
CC:=WINNER(C);CO:=WINNER(O);CH:=WINNER(H);CL:=WINNER(L);LC:=REF(CC,1);
RSI1:SMA(SMA(MAX(CC-LC,0),6,1)/SMA(ABS(CC-LC),6,1)*100,5,1);
RSI2:SMA(SMA(MAX(CC-LC,0),12,1)/SMA(ABS(CC-LC),12,1)*100,5,1);
RSI3:SMA(SMA(MAX(CC-LC,0),24,1)/SMA(ABS(CC-LC),24,1)*100,5,1);
大道至简，三丰MA指标
三丰MA指标的原码：
CC:=WINNER(C)*100;
MA10:MA(CC,10);
MA30:MA(CC,30);
MA90:MA(CC,90);
MA120:MA(CC,120);
MA250:MA(CC,250);
大道至简，三丰波段指标
首先，声明一点：本指标非我所创，是优化别人的东西而成。
三丰“波段神偷”指标的原码：
Var1:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)
-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);
三丰线:EMA(Var1,5) linethick2;
Var2:=(三丰线-REF(三丰线,1))/REF(三丰线,1)*100;
准备资金:STICKLINE(三丰线<13,0,20,5,0)COLORyellow;
买入股票:STICKLINE(REF(三丰线,1)<13 AND Var2>13,0,50,5,0)COLORred;
见顶清仓:STICKLINE(REF(三丰线,1)>90 AND Var2<0,100,80,5,0)COLORgreen;
0 linethick2 color999999;100 linethick2 color999999;