142 12345
发新话题
打印

★赤影(阿福)专辑

本主题由 蓝鼠 于 2008-3-1 12:51 关闭
骤雨过,琼珠乱撒,打遍新荷。
人生百年有几,念良辰美景,休放虚过。
穷通前定,何用苦张罗。
命友邀宾玩赏,对芳尊浅酌低歌。
且酩酊,任他两轮日月,来往如梭。

TOP

骤雨过,琼珠乱撒,打遍新荷。
人生百年有几,念良辰美景,休放虚过。
穷通前定,何用苦张罗。
命友邀宾玩赏,对芳尊浅酌低歌。
且酩酊,任他两轮日月,来往如梭。

TOP

骤雨过,琼珠乱撒,打遍新荷。
人生百年有几,念良辰美景,休放虚过。
穷通前定,何用苦张罗。
命友邀宾玩赏,对芳尊浅酌低歌。
且酩酊,任他两轮日月,来往如梭。

TOP

引用:
公式名称: 终结
适用软件: 飞狐
发 表 人: 赤影     
发表日期: 2004-06-23
发表网址: http://www.li20.net/viewthread.p ... ght=%2B%B3%E0%D3%B0
引用:
终结



x:=1;
lgl:=IF(EMA(C,5)/EMA(EMA(C,9),16)<=0.85 and   c/ref(c,1)>0.905 and c/ref(c,1)<1.05  and VOL/CAPITAL*100<5,50,0);
wr1:=-100*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34))+100*x;
wr2:=-100*(HHV(HIGH,50)-CLOSE)/(HHV(HIGH,50)-LLV(LOW,50))+100;
wr3:=-100*(HHV(HIGH,70)-CLOSE)/(HHV(HIGH,70)-LLV(LOW,70))+100*x;
BIAS1 := ((CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*100+10)*5;
BIAS2 := ((CLOSE-MA(CLOSE,50))/MA(CLOSE,50)*100+10)*5;
BIAS3 := ((CLOSE-MA(CLOSE,70))/MA(CLOSE,70)*100+10)*5;
s1:=(wr1+wr2+wr3+bias1+bias2+bias3)/6*x;
s2:=ema(s1,3);
s3:=abs(bias1-bias3);
sx:=(s1+s3)/2;
xc1:=(-1)*(ema(100*(1-WINNER(CLOSE)),1)-50)+50;
ccc:=xc1+sx;
zjz:=IF( lgl>0 and ccc<0,200,0)*x;
lxl:=if(sx<0 and c=llV(c,5) and c/ref(c,1)>0.905 and c/ref(c,1)<1.05  and
VOL/CAPITAL*100<5,-50,0);
jbj:=if(ccc<0 and lxl=-50,100,0)*x;
ma3:= ma(c,3);
c0:=ref(c,2)*0.865;
c1:=ref(c,13)*0.772;
bot:=MIN(c0,c1);
hsl:=100*vol/capital*x;
ma13:=ma(c,13)*x;
cxc:=if((c-bot)/c<3/100 and sum(hsl,5)/5<1.8,1,0);
vmc:=if(cxc>0 and (lxl<0 or lgl>0),100,0);
满仓:=vmc;
半:=if(((zjz>0 and jbj>0 and SUM(VOL/CAPITAL*100,5)/5<1) or (cxc>0 and ref(c,1)/ref(c,2)>0.902)) or
(((zjz>0 and jbj>0 and SUM(VOL/CAPITAL*100,5)/5<1) or cxc>0) and  (lxl<0 or lgl>0)) and vmc<10 ,50,0) ;
v93:=(((zjz>0 and jbj>0 and SUM(VOL/CAPITAL*100,5)/5<1) or cxc>0) and  (lxl<0 or lgl>0))  ;
v90:=((zjz>0 and jbj>0 and SUM(VOL/CAPITAL*100,5)/5<1) or (cxc>0 and ref(c,1)/ref(c,2)>0.902));
半仓:=v93 or v90;
xmm87:=满仓 or 半仓;
xmm91:=vmc;
初:=MA(CLOSE,80)-MA(CLOSE,10)/3*x;
初级:if(xmm87>0,87,0),stick,linethick2;
中级:if(xmm91>0,91,0),stick,linethick2;
高级:if(vmc>0 and CLOSE<初,97,0),stick,linethick2;
终结者:max(max(高级,初级),中级),circledot,coloryellow,linethick2;
Var2q:=(MA(CLOSE,80)-MA(CLOSE,13)/3);
神奇线:= MA((CLOSE-Var2q)/Var2q,1);
买点一:=IF(CROSS(神奇线,0) AND LOW/REF(HIGH,1)<1.012,0.5,0);
稳赚:= IF(COUNT(神奇线>REF(神奇线,1),3)=3 AND COUNT(神奇线<0,10)=10 AND REF(神奇线,3)=LLV(神奇线,10),0.5,0);
买点二:=IF(REF(神奇线,2)=LLV(神奇线,20) AND REF(神奇线,2)<0.071 AND REF(神奇线,2)<REF(神奇线,1) AND
NOT(REF(LOW,1)>REF(HIGH,2) AND LOW>REF(HIGH,1)) AND CLOSE>REF(CLOSE,1),0.5,0);
xa:=ema(神奇线,12)*0.7;
xb:=ema(神奇线,3);
底部将成:if(llv(xb-xa,12)>0,0,-30),colorffcc66;
DIFF :EMA(CLOSE,12) - EMA(CLOSE,26);
DEA  :EMA(DIFF,9);
MACD :2*(DIFF-DEA), COLORSTICK;
抄底:if(底部将成<0 and cross(macd,0),50,0),colorblue;
DRAWICON( 抄底>0,60 ,1 );
短线投机:ema((CLOSE-llV(CLOSE,55))/(HHV(CLOSE,55)-LLV(LOW,55))*100,5),linethick2,colorff00ff;
获利盘:EMA(WINNER(CLOSE),5)*100,colorffcccc;
A:=EMA(WINNER(CLOSE),10);
B:=EMA(WINNER(CLOSE),34);
Var31:=MA(VOL,5)>MA(VOL,60);
介入: IF(A<0.15 AND ABS(A-B)<0.05 AND CROSS(A,B) and var31,1,0)*100,colorred;
出货: IF(A>0.90 AND CLOSE<MA(CLOSE,5),1,0)*100,colorgreen
[ 本帖最后由 蓝鼠 于 2008-3-18 12:36 编辑 ]
附件: 您所在的用户组无法下载或查看附件
骤雨过,琼珠乱撒,打遍新荷。
人生百年有几,念良辰美景,休放虚过。
穷通前定,何用苦张罗。
命友邀宾玩赏,对芳尊浅酌低歌。
且酩酊,任他两轮日月,来往如梭。

TOP

引用:
公式名称: 领头羊
适用软件: 飞狐
发 表 人: 赤影     
发表日期: 2004-06-21
发表网址: http://www.li20.net/viewthread.p ... ght=%2B%B3%E0%D3%B0
引用:
领头羊指标



上界白色: SMA(HIGH,21,2)*1.05,COLORWHITE;
下界红色: SMA(LOW,21,2)*0.95,COLOrred;
绿色: SMA(LOW,5,1),COLORgreen;
黄色: SMA(CLOSE,2,1),COLORYELLOW;
[ 本帖最后由 蓝鼠 于 2008-3-18 12:33 编辑 ]
附件: 您所在的用户组无法下载或查看附件
骤雨过,琼珠乱撒,打遍新荷。
人生百年有几,念良辰美景,休放虚过。
穷通前定,何用苦张罗。
命友邀宾玩赏,对芳尊浅酌低歌。
且酩酊,任他两轮日月,来往如梭。

TOP

引用:
公式名称: 双头龙
适用软件: 飞狐
发 表 人: 赤影     
发表日期: 2004-07-28
发表网址: http://www.li20.net/viewthread.p ... ght=%2B%B3%E0%D3%B0
引用:
双头龙



Var1:=SMA((CLOSE-LLV(LOW,24))/(HHV(HIGH,24)-LLV(LOW,24))*200-105,5,1);
Var2:=SMA((HHV(HIGH,24)-CLOSE)/(HHV(HIGH,24)-LLV(LOW,24))*200-125,5,1);
黄色多头: Var1,coloryellow ;
白色空头: Var2,colorwhite ;
风险线: STICKLINE(Var1>=Var2,52,55,2,1),colorblue , ;
STICKLINE(Var1<Var2,52,55,6,1), , ;
安全线: -90,pointdot ,coloryellow,linethick2;
STICKLINE(Var1>=Var2,54,55,2,0),coloryellow ,;
STICKLINE(Var1<Var2,54,55,2,0), ,colorred ;
STICKLINE(Var1>=Var2,Var1,Var2,2,0),colorred , ;
STICKLINE(Var1<Var2,Var1,Var2,2,0), ,colorgreen ;
DRAWTEXT(CROSS(Var1,Var2),-70,'ok'), ,colorblue ;
DRAWICON(CROSS(55,Var2),-85,1);
DRAWICON(CROSS(55,Var1),55,2);
[ 本帖最后由 蓝鼠 于 2008-3-18 12:31 编辑 ]
附件: 您所在的用户组无法下载或查看附件
骤雨过,琼珠乱撒,打遍新荷。
人生百年有几,念良辰美景,休放虚过。
穷通前定,何用苦张罗。
命友邀宾玩赏,对芳尊浅酌低歌。
且酩酊,任他两轮日月,来往如梭。

TOP

引用:
公式名称: 超跌反弹
适用软件: 飞狐
发 表 人: 赤影     
发表日期: 2004-08-21
发表网址: http://www.chcj.net/viewthread.p ... ght=%2B%B3%E0%D3%B0
引用:
超跌反弹公式


有原码!

cyc13:="cyc@cyc13";
cyc34:="cyc@cyc34";
maxcyc:="cyc@cycmax";
CYS13:=(C-CYC13)/CYC13*100;
CYS34:=(C-CYC34)/CYC34*100;
maxCYS:=(C-maxCYC)/maxCYC*100;
市场亏损程度:
if(cys13<=-7,7,0),colorwhite,stick,linethick3;
if(cys13<=-10,10,0),colorffff33,stick,linethick3;
if(cys13<=-16,16,0),colorblue,stick,linethick3;
if(cys13<=-20,20,0),color00ff00,stick,linethick3;
if(cys13<=-25,25,0),coloryellow,stick,linethick3;
if(cys13<=-30,30,0),colorff00ff,stick,linethick3;
Var1:=COST(10)*0;
Var2:=REF(HIGH,1)*1.1;
Var3:=HIGH*1.1;
Var4:=(Var3*VOL+Var2*(CAPITAL-VOL))/CAPITAL;
Var5:=REF(LOW,1)*0.9;
Var6:=LOW*0.9;
Var7:=(Var6*VOL+Var5*(CAPITAL-VOL))/CAPITAL;
Var8:=EMA(Var7,30);
Var9:=EMA(Var4,30);
VarA:=Var9-2;
VarB:=IF(CLOSE<=Var8,VarA,Var9);
超跌: VarB*2.5,color00ff00;
TAO:=100*(1-winner(c));
a:=1.1*c;
b:=0.9*c;
ASR:=100*(winner(a)-winner(b));
筹码超跌:if((ASR<10) and (TAO>90),25,0),color0099ff;
短中长线超跌:if((CYS13<(-16)) and (CYS13>(-100)) and (CYS34<(-20)) and (CYS34>(-100)),30,0),colorddddff;
if((CYS34<(-20)) and (CYS34>(-100)) and (maxCYS<(-30)) and (maxCYS>(-100)),35,0),colorred;
反弹: VarA*2.5,colorff00ff;
var10:=REF(CLOSE,1.5);
var11:=SMA(MAX(CLOSE-var10,0),6,1)/SMA(ABS(CLOSE-var10),6,1)*100;
逃顶:IF((REF(var11,1)>80) and (var11<79),超跌,0),coloryellow;
[ 本帖最后由 蓝鼠 于 2008-3-4 16:28 编辑 ]
附件: 您所在的用户组无法下载或查看附件
骤雨过,琼珠乱撒,打遍新荷。
人生百年有几,念良辰美景,休放虚过。
穷通前定,何用苦张罗。
命友邀宾玩赏,对芳尊浅酌低歌。
且酩酊,任他两轮日月,来往如梭。

TOP

引用:
公式名称: 版块公式
适用软件: 飞狐
发 表 人: 赤影     
发表日期: 2005-11-14
发表网址: http://www.chcj.net/viewthread.p ... E0%D3%B0&page=1
引用:
J1:=STRCMP(LowerSTR(STRLeft(STKName,2)),'st')=0;
J2:=STRCMP(LowerSTR(STRLeft(STKName,3)),'*st')=0;  
ST版块:J1 or J2;

G股版块:STRCMP(LowerSTR(STRLeft(STKName,1)),'g')=0;

骤雨过,琼珠乱撒,打遍新荷。
人生百年有几,念良辰美景,休放虚过。
穷通前定,何用苦张罗。
命友邀宾玩赏,对芳尊浅酌低歌。
且酩酊,任他两轮日月,来往如梭。

TOP

引用:
公式名称: 板块资金流入排序(加密)
适用软件: 飞狐
发 表 人: 赤影     
发表日期: 2004-10-09
发表网址: http://www.chcj.net/viewthread.p ... ght=%2B%B3%E0%D3%B0
引用:
板块资金流入排序

排序的方法是:选择公式,右键,指标排序



[ 本帖最后由 蓝鼠 于 2008-3-8 09:12 编辑 ]
附件: 您所在的用户组无法下载或查看附件
骤雨过,琼珠乱撒,打遍新荷。
人生百年有几,念良辰美景,休放虚过。
穷通前定,何用苦张罗。
命友邀宾玩赏,对芳尊浅酌低歌。
且酩酊,任他两轮日月,来往如梭。

TOP

引用:
公式名称: 渔家变盘布林线+宝塔线
适用软件: 飞狐
发 表 人: 赤影     
发表日期: 2004-10-31
发表网址: http://www.chcj.net/viewthread.p ... ght=%2B%B3%E0%D3%B0
引用:
渔家变盘布林线+宝塔线



thank you  渔家变盘布林线
{渔家变盘布林线}
VAR1:=1;
VAR2:=CLOSE*VOL;
CY: EMA((EMA(VAR2,3)/EMA(VOL,3)+EMA(VAR2,5)/EMA(VOL,5)+EMA(VAR2,13)/EMA(VOL,13)+EMA(VAR2,21)/EMA(VOL,21))/4,1)*VAR1;
UPR1: EMA(CY+5*STD(CY,8),1)*VAR1,COLORYELLOW ;
DWN1: EMA(CY-5*STD(CY,8),1)*VAR1,COLORMAGENTA;

{ 宝塔线 }
Var1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);
Var2:=REF(Var1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var3:=REF(Var2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
Var4:=REF(Var3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var5:=REF(Var4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
Var6:=REF(Var5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var7:=REF(Var6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
Var8:=REF(Var7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var9:=REF(Var8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VarA:=REF(Var9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VarB:=REF(VarA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VarC:=REF(VarB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
持股:STICKLINE(Var1 OR Var2 OR Var3 OR Var4 OR Var5 OR Var6 OR Var7 OR Var8 OR Var9 OR VarA OR VarB OR VarC,CLOSE,REF(CLOSE,1),8,1),COLORRED;
VarD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
VarE:=REF(VarD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VarF:=REF(VarE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var10:=REF(VarF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
Var11:=REF(Var10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var12:=REF(Var11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
Var13:=REF(Var12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var14:=REF(Var13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
Var15:=REF(Var14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var16:=REF(Var15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
Var17:=REF(Var16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var18:=REF(Var17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
持币:STICKLINE(VarD OR VarE OR VarF OR Var10 OR Var11 OR Var12 OR Var13 OR Var14 OR Var15 OR Var16 OR Var17 OR Var18,CLOSE,REF(CLOSE,1),8,1),colorblue;
Var19:=REF(VarD OR VarE OR VarF OR Var10 OR Var11 OR Var12 OR Var13 OR Var14 OR Var15 OR Var16 OR Var17 OR Var18,1) AND Var1;
底:STICKLINE(Var19,REF(CLOSE,1),REF(CLOSE,2),8,0),colorwhite ;
Var1A:=REF(Var1 OR Var2 OR Var3 OR Var4 OR Var5 OR Var6 OR Var7 OR Var8 OR Var9 OR VarA OR VarB OR VarC,1) AND VarD;
顶:STICKLINE(Var1A,REF(CLOSE,1),REF(CLOSE,2),8,1),,colorgreen ;
[ 本帖最后由 蓝鼠 于 2008-3-8 09:13 编辑 ]
附件: 您所在的用户组无法下载或查看附件
骤雨过,琼珠乱撒,打遍新荷。
人生百年有几,念良辰美景,休放虚过。
穷通前定,何用苦张罗。
命友邀宾玩赏,对芳尊浅酌低歌。
且酩酊,任他两轮日月,来往如梭。

TOP

引用:
公式名称: 琴心通道(转帖)
适用软件: 飞狐
发 表 人: 赤影     
发表日期: 2004-09-23
发表网址: http://www.chcj.net/viewthread.p ... ght=%2B%B3%E0%D3%B0
引用:
转帖:琴心通道



v2:=ma(HIGH,3)*1.03;
v3:=ma(LOW,3)*0.97;
{v6}小通道上:fft(v2,30);
{v7}小通道下:fft(v3,30);
A2:=小通道上-REF(小通道上,1);
A3:=小通道下-REF(小通道下,1);
PARTLINE(A2>0,小通道上) LINETHICK2 COLORRED;
PARTLINE(A2=0,小通道上) LINETHICK1 COLORWHITE;
PARTLINE(A2<0,小通道上) LINETHICK1 COLORGREEN;
PARTLINE(A3>0,小通道下) LINETHICK2 COLORRED;
PARTLINE(A3=0,小通道下) LINETHICK1 COLORWHITE;
PARTLINE(A3<0,小通道下) LINETHICK1 COLORGREEN;
[ 本帖最后由 蓝鼠 于 2008-3-8 09:13 编辑 ]
骤雨过,琼珠乱撒,打遍新荷。
人生百年有几,念良辰美景,休放虚过。
穷通前定,何用苦张罗。
命友邀宾玩赏,对芳尊浅酌低歌。
且酩酊,任他两轮日月,来往如梭。

TOP

引用:
公式名称: 彩色MACD  
适用软件: 飞狐
发 表 人: 赤影     
发表日期: 2004-09-06
发表网址: http://www.chcj.net/viewthread.p ... ght=%2B%B3%E0%D3%B0
引用:
有位网友要找的 彩色MACD 原码!



DIFF: EMA(CLOSE,12) - EMA(CLOSE,26),COLORYELLOW,LINETHICK2;
DEA1:=EMA(DIFF,9);
MACD: 2*(DIFF-DEA1);
s1:=MACD<ref(MACD,1)and MACD>0;
s2:=MACD<ref(MACD,1)/2 and MACD<0;
STICKLINE(MACD>=0,MACD,0,8,1),COLORRED;
STICKLINE(s1,0,MACD,8,1),COLOR00ffff;
STICKLINE(s2,0,MACD,8,0),COLORffffff;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,8,1),COLORffff00;


DEA: EMA(DIFF,9),COLORGREEN;
PARTLINE(DIFF>DEA,DIFF),COLORff11cc,LINETHICK2;
PARTLINE(DIFF>DEA AND DIFF<0,DIFF),COLORred,LINETHICK2;
DRAWICON(CROSS(DIFF,DEA),DIFF-0.01,6);
DRAWICON(CROSS(DEA,DIFF),DIFF,11);


Var1:=EMA(CLOSE,34)-EMA(CLOSE,5);
Var2:=EMA(Var1,5);
趋势:=(-3)*(Var1-Var2), COLORSTICK;
EXPLAIN(趋势>0,'Z线趋势上升中\n');
EXPLAIN(趋势<0,'Z线趋势下降中\n');
EXPLAIN(cross(趋势,0),'Z线考虑买入\n');
EXPLAIN(cross(0,趋势),'Z线考虑卖出\n');
Var11:=ma((v/(h-l)),4);
Var33:=abs(c-o);
Var44:=v/(h-l);


TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),14);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);
PDI:= DMP*100/TR;
MDI:= DMM*100/TR;
ADX:= MA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=(ADX+REF(ADX,6))/2;
EXPLAIN(cross(pdi,mdi),'PDI线从下向上突破MDI线,显示有新多头进场,为买进信号\n');
EXPLAIN(cross(mdi,pdi),'PDI线从上向下跌破MDI线,显示有新空头进场,为卖出信号\n');
EXPLAIN(adx>ref(adx,1),'ADX值持续高于前一日,行情将维持原趋势\n');




EXPLAINEX(1=1,'换手率=',vol/CAPITAl*100,2,1);
explain((vol/CAPITAl)>0.075,'换手过大,小心主力出逃,短期头部\n');
wr:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
EXPLAINEX(1=1,'威廉指标(短标)=',wr,2,1);
explain(wr>-20,'W&R超买,短线即将见顶,应及时卖出\n');
explain(wr<-80,'W&R超卖,短线即将见底,应伺机买进\n');
LC := REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
EXPLAINEX(1=1,'相对强弱RSI1=',RSI1,2,1);
EXPLAIN(RSI1>85,'6日RSI超买,防止回挡\n');
EXPLAIN(RSI1>80,'6日RSI向上突破85,超买,考虑卖出\n');
EXPLAIN(RSI1<15,'6日RSI超卖,随时有可能反弹\n');
EXPLAIN(RSI1<15,'6日RSI向下跌破15,超卖,考虑买入\n');
EXPLAIN(CROSS(RSI1,15),'6日RSI向上突破15,买进信号\n');
EXPLAIN(CROSS(RSI1,85),'6日RSI向下跌破85,卖出信号\n');
psy:=COUNT(CLOSE>REF(CLOSE,1),12)/12*100;
EXPLAINEX(1=1,'12天心理线,PSY=',psy,2,1);
EXPLAINEX(1=1,'获利盘比例=',WINNER(c)*100,2,1);
EXPLAINEX(1=1,'套牢盘比例=',100-WINNER(c)*100,2,1);
Aa:=(EMA(C,30)*2+MA(C,60))/3;
Ra:=(VOL*CLOSE);
VL1a:=EMA(Ra,13)/EMA(VOL,13);
VL2a:=EMA(Ra,60)/EMA(VOL,60);
VLa:=EMA((VL1a+VL2a)/2,3);
分水岭:=ma((Aa+VLa)/2,1);
EXPLAINEX(1=1,'分水岭(中长标)=',分水岭,2,1);
EXPLAIN(close>分水岭,'股价在分水岭之上,大势属多头,可积极做多\n');
EXPLAIN(close<分水岭,'股价在分水岭之下,大势属空头,超跌只能抢反弹\n');
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
UPR:=BBI+3*STD(BBI,10);
DWN:=BBI-3*STD(BBI,10);
var55:=(UPR-DWN)/UPR<0.03;
var56:=(UPR-DWN)/UPR>0.18;
var57:=(ma(c,60)-ma(c,5))/ma(c,60)>0.15;
var58:=(ma(c,5)-ma(c,60))/ma(c,5)>0.15;
EXPLAIN(var55,'多空布林收敛中,有变盘的可能,上下自己分析\n');
EXPLAIN(var57 and var56 and c>o ,'布林上下乖离太大,有反弹的可能\n');
[ 本帖最后由 蓝鼠 于 2008-3-8 09:13 编辑 ]
骤雨过,琼珠乱撒,打遍新荷。
人生百年有几,念良辰美景,休放虚过。
穷通前定,何用苦张罗。
命友邀宾玩赏,对芳尊浅酌低歌。
且酩酊,任他两轮日月,来往如梭。

TOP

引用:
公式名称: 极低位大涨
适用软件: 飞狐
发 表 人: 赤影     
发表日期: 2004-06-23
发表网址: http://www.chcj.net/viewthread.p ... ght=%2B%B3%E0%D3%B0
引用:
"极低位大涨"源码供参考



INPUT:N(500,100,1000),M(5.5,3.8,9.98);
LLV(C,N)=LLV(C,5) AND C/REF(C,1)>(1+m/100);
[ 本帖最后由 蓝鼠 于 2008-3-8 09:14 编辑 ]
附件: 您所在的用户组无法下载或查看附件
骤雨过,琼珠乱撒,打遍新荷。
人生百年有几,念良辰美景,休放虚过。
穷通前定,何用苦张罗。
命友邀宾玩赏,对芳尊浅酌低歌。
且酩酊,任他两轮日月,来往如梭。

TOP

引用:
公式名称: 新OBV用法
适用软件: 飞狐
发 表 人: 赤影     
发表日期: 2004-06-02
发表网址: http://www.chcj.net/viewthread.p ... ght=%2B%B3%E0%D3%B0
引用:
新OBV用法!



跟踪庄家是否进出货,有效的方法是学会使用OBV指标。
OBV指标又称为能量潮,也叫成交量净额指标。
其计算公式为:当日OBV=前一日OBV+今日成交量。
注:如果当日收盘价高于前日收盘价取正值,反之取负值,平盘取零。

1、在证券市场中,价格、成交量、时间、空间是进行技术分析的四大要素,由此我们应该清楚OBV指标作为成交量的指标,它不能单独使用,必须与价格曲线同时使用才能发挥作用。
2、OBV指标方向的选择反映了市场主流资金对持仓兴趣增减的变化。OBV指标的曲线方向通常有三个:向上、向下、水平。N字和V字是最常见的形态。
3、当股价上涨,OBV指标同步向上,反映在大盘或个股的信号就是一个价涨量增的看涨信号,表明市场的持仓兴趣在增加。反之,股价上涨,OBV指标同步呈向下或水平状态,实际上就是一个上涨动能不足的表象,表明市场的持仓兴趣没有多大变化,这样,大盘或个股的向上趋势都将难以维持。
4、当股价下跌,OBV指标同步向下,反映在大盘或个股的信号就是一个下跌动能增加的信号。市场做空动能的释放必然会带来股票价格大幅下行,这种情况发生时,投资者应该首先想到的是设立好止损位和离场观望。在这种情况下,回避风险成为第一要点。
5、当股价变动,OBV指标呈水平状态,这种情形在OBV指标的表现中最常见到。OBV指标呈水平状态,首先表现为目前市场的持仓兴趣变化不大,其次表现为目前的大盘或个股为调整状态,投资者最好的市场行为是不要参与调整。当股价下跌,OBV指标呈水平状态是股价下跌不需要成交量配合的一个最好的表象。这种股价缩量下跌的时间的延长,必将带来投资者的全线套牢。
举例:综艺股份(600770)。综艺股份是2000年网络股的龙头股票,从周线的K线形态看,2000年2月25日在创出64.27元的历史高点后,股价开始回落,其间OBV指标同步向下,周线下的OBV指标留下了长长的向下的斜线,这是典型的庄股出货的走势,其后便是漫长的股价回落。这样的技术图形,在后来的银广夏、世纪中天、徐工科技都有同样的翻版。揭露中国股市获利真相,怎样才能成为赚钱的少数人用OBV捕捉黑马 (技术学习)
如何寻找短期涨幅远大于大盘指数的黑马股呢?
我们知道OBV是能量潮指标,又称成交量净额,即将成交量值乘以数量比制成趋势线,配合股价走势图,通过价格的变动及成交量的增减关系,真实反映出大盘及个股多空力量搏杀的状况。在实战中运用时,需把握以下几点:
1、当OBV曲线呈现与价格趋向一致时,并没有什么特别的买卖提示意义。
2、当OBV曲线与价格趋势出现“背离”时,则需引起格外关注。例如价格不断走低,而OBV却不跌,只是横向整理。一般而言,当OBV横向整理达2-3个月时,随时都有短线凌厉拉升行情,OBV横向整理时间越长,则短线拉升力度及涨幅越大。例如ST海泰(600082)股价从2002年12月23日破位下跌,一直到2003年3月3日止。但是其OBV指标一直在1086-1075窄幅整理,并未随股价的走低而下降。因此,我认为该股有戏。果然3月4日带量(142万股)涨停(5%),于是我等其回抽确认时,在3月6日以10.5元买入,短短17个交易日最高价达12.12元(涨幅15%),而同期大盘却是下跌的(3/4 1524.3  3/31 1510.57)。
3、尽量不参与有上述特征个股的盘整,而一旦带量向上突破,则需第一时间介入,或等其突破回抽时,可作第二买点介入。
类似的例子还有韶钢松山(000717)2002年11月5日-2003年1月3日的走势。有心的散户朋友不妨细细体察其间的奥妙。




SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0)),0)
[ 本帖最后由 蓝鼠 于 2008-3-8 09:14 编辑 ]
附件: 您所在的用户组无法下载或查看附件
骤雨过,琼珠乱撒,打遍新荷。
人生百年有几,念良辰美景,休放虚过。
穷通前定,何用苦张罗。
命友邀宾玩赏,对芳尊浅酌低歌。
且酩酊,任他两轮日月,来往如梭。

TOP

引用:
公式名称: 主图成交量(转帖)
适用软件: 飞狐
发 表 人: 赤影     
发表日期: 2004-11-12
发表网址: http://www.chcj.net/viewthread.p ... ght=%2B%B3%E0%D3%B0
引用:
转飞狐公式 主图成交量

r0:=m/1000;r:=(l-r0*SYSPARAM(5))/v;
r1:=llv(r,SYSPARAM(3)-SYSPARAM(2));
r2:=r1[datacount];
r3:=llv(l-r2*v,SYSPARAM(3)-SYSPARAM(2));
r4:=r3[SYSPARAM(3)];r5:=(r2*v+r4)*0.995;
STICKLINE(c>=ref(c,1),r5,r0*SYSPARAM(5),5,1)color50CCEE;
STICKLINE(c<ref(c,1),r5,r0*SYSPARAM(5),5,0)COLORblue;
PARTLINE(v>=0,r0*SYSPARAM(5)) colorwhite;
PARTLINE(r5>0,ma(r5,5));
PARTLINE(r5>0,ma(r5,10));
PARTLINE(r5>0,ma(r5,20));

使用时  请打开光标  

并注意在  管理→系统选项→图形→主图坐标仅随K线变动  前  不要打钩
[ 本帖最后由 蓝鼠 于 2008-3-8 09:15 编辑 ]
附件: 您所在的用户组无法下载或查看附件
骤雨过,琼珠乱撒,打遍新荷。
人生百年有几,念良辰美景,休放虚过。
穷通前定,何用苦张罗。
命友邀宾玩赏,对芳尊浅酌低歌。
且酩酊,任他两轮日月,来往如梭。

TOP

引用:
公式名称: 小天K-KDJ修改
适用软件: 飞狐
发 表 人: 赤影     
发表日期: 2004-09-10
发表网址: http://www.chcj.net/viewthread.p ... ght=%2B%B3%E0%D3%B0
引用:
小天K-KDJ修改



{k-kdj  (主图) 参数:nn=22;rln=1;cb1=4;n2=1.088;}
RSV:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=n2*(3*K-2*D);
RSV12:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;
K12:=SMA(RSV12,3,1);
D12:=SMA(K12,3,1);
J12:=3*K12-2*D12;
RSV24:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100;
K24:=SMA(RSV24,3,1);
D24:=SMA(K24,3,1);
J24:=3*K24-2*D24;
支撑位:IF(CROSS(j,j24),L,REF(L,BARSLAST(CROSS(j,j24)))),color80A810,,LINETHICK1;
U2L:=IF(C>=MA(C,NN),80,50);
L2L:=IF(C>=MA(C,RLN),50,20);
RL1:=IF(j>L2L AND REF(j,1)<=L2L,LLV(REF(L,1),BARSLAST(j<=L2L AND REF(j,1)>L2L)-1),
       REF(LLV(REF(L,1),BARSLAST(j<=L2L AND REF(j,1)>L2L)-1),BARSLAST(j>L2L AND REF(j,1))));
RL4:=IF(L< RL1,H,REF(H,BARSLAST(L< RL1)));
RL42:=IF(L< RL1,j,REF(j,BARSLAST(L< RL1)));
抄底:IF(L< RL4 AND j>RL42 AND j>j24,L,REF(L,BARSLAST(L< RL4 AND j>RL42 AND j>j24))),color10FF10;
RH1:=IF(j< U2L AND REF(j,1)>=U2L,HHV(REF(H,1),BARSLAST(j>=U2L AND REF(j,1)< U2L)-1),
       REF(HHV(REF(H,1),BARSLAST(j>=U2L AND REF(j,1)< U2L)-1),BARSLAST(j< U2L AND REF(j,1))));
RH4:=IF(H>RH1,L,REF(L,BARSLAST(H>RH1)));
RH42:=IF(H>RH1,j,REF(j,BARSLAST(H>RH1)));
压力位:IF(CROSS(j24,j),H,REF(H,BARSLAST(CROSS(j24,j)))),colorff6600,LINETHICK1;

拦顶:IF(H>RH4 AND j< RH42 AND j< j24,H,REF(H,BARSLAST(H>RH4 AND j< RH42 AND j< j24))),color10FFFF;

cb:=amount/v/100;
cd:=cb>h or cb< l;
STICKLINE(cd<1,cb-0.002,cb+0.002,8,1),COLORYELLOW;

小天导航:=ma(c,CB1),color1010FF;
ma5:ma(小天导航,1);
bb5:=ma5-ref(ma5,1);
PARTLINE(bb5>0,MA5),color1010FF,LINETHICK2;
PARTLINE(bb5<=0,MA5),colorFFFF10,LINETHICK2;

ma10:ma(拦顶,1);
bb10:=ma10-ref(ma10,1);

PARTLINE(bb10>0,MA10),colorFFAC10,LINETHICK2;
PARTLINE(bb10<=0,MA10),color10FFFF,LINETHICK2;
ma20:ma(压力位,1);
bb20:=ma20-ref(ma20,1);
PARTLINE(bb20>0,MA20),color10FFFF,LINETHICK2;
PARTLINE(bb20<=0,MA20),colorff6600,LINETHICK2;
ma6:ma(支撑位,1);
bb6:=ma6-ref(ma6,1);
ma7:ma(抄底,1);
bb7:=ma7-ref(ma7,1);
PARTLINE(bb6>0,MA6),colorD8B8FF,LINETHICK2;
PARTLINE(bb6<=0,MA6),color80A810,LINETHICK2;
PARTLINE(bb7>0,MA7),colorCC5FFF,LINETHICK2;
PARTLINE(bb7<=0,MA7),color10FF10,LINETHICK2;
CSAR:SAR(2,2,16),;
DRAWICON(CSAR>=H,CSAR,11);
DRAWICON(CSAR<=L,CSAR,10);
TJ1:=BACKSET(SARTURN(2,2,16)<>0,2);
TJ2:=REF(TJ1,1);
DRAWICON(TJ2,CSAR,12);{CIRCLEDOT}
[ 本帖最后由 蓝鼠 于 2008-3-8 09:15 编辑 ]
骤雨过,琼珠乱撒,打遍新荷。
人生百年有几,念良辰美景,休放虚过。
穷通前定,何用苦张罗。
命友邀宾玩赏,对芳尊浅酌低歌。
且酩酊,任他两轮日月,来往如梭。

TOP

引用:
公式名称: 自用买点指标
适用软件: 飞狐
发 表 人: 赤影     
发表日期: 2004-06-21
发表网址: http://www.chcj.net/viewthread.p ... ght=%2B%B3%E0%D3%B0
引用:
自用买点指标!



close/(ema(ema((c+l+h)/3,3),26)*0.9)<0.95 ;
[ 本帖最后由 蓝鼠 于 2008-3-8 09:15 编辑 ]
附件: 您所在的用户组无法下载或查看附件
骤雨过,琼珠乱撒,打遍新荷。
人生百年有几,念良辰美景,休放虚过。
穷通前定,何用苦张罗。
命友邀宾玩赏,对芳尊浅酌低歌。
且酩酊,任他两轮日月,来往如梭。

TOP

引用:
公式名称: 不准别骂
适用软件: 飞狐
发 表 人: 赤影     
发表日期: 2004-06-19
发表网址: http://www.chcj.net/viewthread.p ... ght=%2B%B3%E0%D3%B0
引用:
"不准别骂"指标
{n 40  m -25}
Var1:=(HIGH+LOW+OPEN+2*CLOSE)/5;
Var2:=REF(Var1,1);
Var3:=SMA(MAX(Var1-Var2,0),10,1)/SMA(ABS(Var1-Var2),10,1)*100;
IF(COUNT(Var3<20,5)>=1 AND COUNT(Var1=LLV(Var1,10),10)>=1 AND CLOSE>OPEN AND REF(CLOSE,1)>REF(OPEN,1) AND VOL>REF(VOL,1),150, 100);
Var4:=INDEXC;  
Var5:=MA(Var4,6);  
Var6:=MA(Var4,24);  
Var7:=MA(Var4,32);  
Var8:=MA(Var4,62);  
Var9:=MA(Var4,105);  
Var10:=Var8< REF(Var8,1) AND Var9< REF(Var9,1) AND Var8< Var9*0.98;  
Var11:=Var7>Var5*1.11 AND Var6>Var5*1.095;  
VarA:=Var5>Var4*0.95;  
抄底一: if(Var10 AND Var11 AND VarA AND CLOSE/COST(8)<=0.8 AND CLOSE< OPEN,0,1) , COLORWHITE;  
VarB:=CLOSE/MA(CLOSE,40)*100<78;  
VarC:=CLOSE/MA(CLOSE,60)*100<74;  
VarD:=HIGH>LOW*1.051;  
VarE:=VarD AND COUNT(VarD,5)>1;  
VarF:=VarE AND (VarB OR VarC);  
Var12:=DMA(EMA(CLOSE,12),SUM(VOL,5)/3/CAPITAL);  
Var13:=(CLOSE-Var12)/Var12*100+30-(REF(HIGH,13)/CLOSE-1.35)*100;  
Var14 :=(CLOSE-REF(CLOSE,5))/CLOSE*100<(-9);  
Var15:=WINNER(CLOSE);  
Var16:=(EMA((INDEXC-MA(INDEXC,10))/INDEXC*100,14)<-4.9);  
Var17:=(MA(VOL,5)-VOL)/CAPITAL*100<0.8;  
Var18:=(VOL-MA(VOL,21))/VOL*100;  
抄底二: Var16 AND Var14 AND Var15<0.12 AND Var17 AND Var18>18, COLORYELLOW;  
STICKLINE(抄底二,50,0,3,1),  COLORYELLOW;  
Var19:=(REF(CLOSE,1)+REF(CLOSE,2)+REF(CLOSE,3)+REF(CLOSE,4)+REF(CLOSE,5))/5;  
Var20:=(REF(CLOSE,2)+REF(CLOSE,3)+REF(CLOSE,4)+REF(CLOSE,5)+REF(CLOSE,6))/5;  
Var21:=(REF(CLOSE,3)+REF(CLOSE,4)+REF(CLOSE,5)+REF(CLOSE,6)+REF(CLOSE,7))/5;  
Var22:=(REF(CLOSE,4)+REF(CLOSE,5)+REF(CLOSE,6)+REF(CLOSE,7)+REF(CLOSE,8))/5;  
Var23:=(REF(CLOSE,5)+REF(CLOSE,6)+REF(CLOSE,7)+REF(CLOSE,8)+REF(CLOSE,9))/5;  
抄底三: ((Var19/CLOSE>1.112 OR Var20/CLOSE>1.123 OR Var21/CLOSE>1.135 OR Var22/CLOSE>1.145
OR Var23/CLOSE>1.156) AND "BIAS.BIAS3"<=-20 AND COST(25)/CLOSE>=1.5 AND CLOSE< OPEN),
COLORGREEN;  
STICKLINE(抄底三,50,0,5,1),  COLORGREEN;  
Var24:=(CLOSE-MA(CLOSE,40))/MA(CLOSE,40)*100;  
抄底四: FILTER(IF(CROSS(Var24,-28),1,0),8),  COLORRED;  
STICKLINE(CROSS(Var24,-28),50,0,8,1),  COLORRED;  
Var25:=DMA(EMA(CLOSE,13),SUM(VOL,5)/2/CAPITAL);  
Var26:=(CLOSE-Var25)/Var25*100;  
抄底: (REF(Var26,1)<-35 AND Var26>REF(Var26,1) AND REF(Var26,1)< REF(Var26,2) AND
Var26-REF(Var26,1)>2.5),  COLORMAGENTA;  
STICKLINE(抄底,50,0,8,0),  COLORMAGENTA;  
Var27:=100*WINNER(REF(CLOSE,1)*1.1)-100*WINNER(REF(CLOSE,1)*0.9);  
战: CLOSE>OPEN*1.06 AND Var27<10, COLORCYAN;  
STICKLINE(战,50,0,8,0),  COLORCYAN;  
VAR28:=CLOSE*VOL;
VAR29:=EMA((MA(VAR28,4)/MA(VOL,4)+MA(VAR28,6)/MA(VOL,6)+MA(VAR28,13)/MA(VOL,13)+MA(VAR28,24)/MA(VOL,24))/4,1);
VAR30:=1*VAR29;
VAR31:=VAR29*0.92;
VAR32:=EMA(CLOSE,34);
VAR33:=MA(VAR32*1.12,5);
VAR34:=MA(VAR32*0.80,5);
VAR35:=CLOSE<VAR34;
VAR36:=(MA(AMOUNT,5)/MA(VOL,5)/100-MA(AMOUNT,125)/MA(VOL,125)/100)/(MA(AMOUNT,5)/MA(VOL,5)/100)<(-0.4);
Var37: if(VAR36 AND CLOSE<VAR34,100,50),colorred;
Var38:=(HIGH+LOW+CLOSE)/3;
Var39:=(Var38-MA(Var38,14))/(0.015*AVEDEV(Var38,14));
Var40:=(HHV((CLOSE+OPEN)/2,15)-CLOSE)/HHV((CLOSE+OPEN)/2,15)*100>20;
if(Var40 AND MA(CLOSE,27)/CLOSE>1.169 AND MA(CLOSE,17)/CLOSE>1.158
AND CLOSE<MA(CLOSE,120) AND MA(CLOSE,60)<MA(CLOSE,120)
AND MA(CLOSE,60)>MA(CLOSE,30) AND Var39>-210,200,150),coloryellow;
Var41:=MA(CLOSE,5)*1.21<MA(CLOSE,60);
Var42:=HIGH>LOW*1.05;
Var43:=MA(INDEXC,15)<MA(INDEXC,25)*0.98;
if(Var41 AND COUNT(Var42,5)>2 AND Var43,200,150),colormagenta  ;
Var44:=(CLOSE-MA(CLOSE,n))/MA(CLOSE,n)*100;
Var45:if(Var44<m,0,-50),colorred;
[ 本帖最后由 蓝鼠 于 2008-3-8 09:16 编辑 ]
附件: 您所在的用户组无法下载或查看附件
骤雨过,琼珠乱撒,打遍新荷。
人生百年有几,念良辰美景,休放虚过。
穷通前定,何用苦张罗。
命友邀宾玩赏,对芳尊浅酌低歌。
且酩酊,任他两轮日月,来往如梭。

TOP