(我研究了几年的规律和看点,本来想和朋友们分享我的成果,既然有这么多朋友诋毁我,那我从今天起封笔,不过三楼发的公式我会经常更新,希望大家常来!!!!!感谢各位朋友的支持,谢谢!08-04-06)
密码是82468056,希望大家有什么疑惑的可以和我联系

今后请勿在帖中公布QQ号码,一鸣版主已经短信告之过你一次,请自重!

大家多关注,我最近要发新贴了!!!!!!!!!!("新贴"已发布请朋友们快去看吧)!!!!!!!!----08.4.29
还有些不错的公式,在这里,大家可以去下:http://www.chcj.net/thread-1044737-1-1.html

新贴地址:http://www.chcj.net/thread-1076419-1-1.html





这底下两幅图的公式是我的经典之作!
黄色:买入;
红色:持有;
绿色:等待上涨机会;
蓝色:跑;
粉红:即将要变盘,抛;
灰色:快要跌了,要注意!!!!




哎…………588被人占了，呵呵
不过说话要算话，我就在此发MACD源码了:
DIFF:EMA(CLOSE,12)-EMA(CLOSE,27);
DEA:EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
STICKLINE(MACD>=0,MACD,0,4,1),COLORF00FF0;
STICKLINE(MACD<0,MACD,0,4,1),COLORWHITE;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,4,0 ),COLOR00aaff;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,3.3,0 ),COLOR00bbff;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,2.2,0 ),COLOR00ccff;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,1.65,0 ),COLOR00ddff;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,1.1,0 ),COLOR00eeff;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,0.55,0 ),COLOR00ffff;
STICKLINE(MACD>=ref(MACD,1)and MACD>0,0,MACD,4 ,0 ),COLOR0000aa;
STICKLINE(MACD>=ref(MACD,1)and MACD>0,0,MACD,3.3 ,0 ),COLOR0011bb;
STICKLINE(MACD>=ref(MACD,1)and MACD>0,0,MACD,2.2,0 ),COLOr0022cc;
STICKLINE(MACD>=ref(MACD,1)and MACD>0,0,MACD,1.65 ,0 ),COLOR0033dd;
STICKLINE(MACD>=ref(MACD,1)and MACD>0,0,MACD,1.1 ,0 ),COLOR0044ee;
STICKLINE(MACD>=ref(MACD,1)and MACD>0,0,MACD,0.55 ,0 ),COLOR0055ff;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,4,0 ),COLOraa00bb;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,3.3 ,0 ),COLORbb11bb;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,2.2,0 ),COLOrcc22bb;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,1.65,0 ),COLORdd33bb;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,1.1,0 ),COLORee44bb;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,0.55 ,0 ),COLORff55bb;
STICKLINE(MACD<=ref(MACD,1)and MACD<0,0,MACD,4,0 ),COLOrffaa00;
STICKLINE(MACD<=ref(MACD,1)and MACD<0,0,MACD,3.3 ,0 ),COLORffbb11;
STICKLINE(MACD<=ref(MACD,1)and MACD<0,0,MACD,2.2,0 ),COLOrffcc22;
STICKLINE(MACD<=ref(MACD,1)and MACD<0,0,MACD,1.65 ,0 ),COLORffdd33;
STICKLINE(MACD<=ref(MACD,1)and MACD<0,0,MACD,1.1 ,0 ),COLORffee44;
STICKLINE(MACD<=ref(MACD,1)and MACD<0,0,MACD,0.55 ,0 ),COLORffff55;
if(diff<0,diff,0),colorred,linethick1;
if(diff<0,0,diff),coloryellow,linethick1;
if(diff<dea,diff,dea),COLOR00ff00,linethick1;
if(diff>dea,dea,dea),COLORwhite,linethick1;

低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
STICKLINE(低位金叉,0,-0.18,6,0),COLORYELLOW;
DRAWTEXT(低位金叉,-0.1,' 低位金叉'),COLORYELLOW;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,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);
STICKLINE(底背离,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),COLORGREEN,linethick2;

[ 本帖最后由 蓝鼠 于 2008-6-8 23:24 编辑 ]

不公开原码,怎么知道没有未来呢?

看贴回贴是美德，不回贴我以后就是不给密码！！

准不准，自己验证！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
我再发个公式答谢常来此贴的真诚朋友！！！！
底部买点：
VAR01:=EMA((CLOSE-LLV(LOW,25))/(HHV(HIGH,25)-LLV(LOW,25))*100,5);
VAR02:=(HHV(HIGH,25)-LLV(LOW,25))/EMA((CLOSE-LLV(LOW,25)),5);
VAR03:=CROSS(VAR02,VAR01);
VAR04:=REF(VAR02,2)<REF(VAR02,1) AND VAR02<REF(VAR02,1);
yxf:=COUNT(VAR03,7)>0 AND VAR04;
VAR06:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
VAR07:=SMA(ABS(LOW-VAR06),13,1)/SMA(MAX(LOW-VAR06,0),10,1);
VAR08:=EMA(VAR07,10);
VAR09:=EMA(C,5);
VAR10:=LLV(LOW,33);
VAR11:=EMA(IF(LOW<=VAR10,VAR09,0),3)*40;
VAR12:=IF(VAR11>100,VAR11*0.312,VAR11);
STICKLINE(yxf AND COUNT(yxf,5)=1,0,VAR12,4,0),COLORRED;






应朋友邀请再发一贴:优化了一个小公式,供大家参考,以后再发公式我会发文件格式类的  大智慧用的EXP,加密,凡是在贴里乱说话,说坏话的人将不给密码!!!!!!!

VAR2N:=1;
V1:=(MA(((100 * (CLOSE - LLV(CLOSE,34))) / (HHV(HIGH,34) - LLV(LOW,34))),5) - 20);
V2:=(2 * ABS(V1));
V3:=(100 - ((100 - (3 * SMA((((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100),20,1))) + (2 * SMA(SMA((((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100),20,1),15,1))));
V4:=(100 - ((100 - (3 * SMA((((OPEN - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100),20,1))) + (2 * SMA(SMA((((OPEN - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100),20,1),15,1))));
V5:=(((HIGH + LOW) + CLOSE) / 3);
V6:=((V5 - MA(V5,10)) / (0.015 * AVEDEV(V5,10)));
V7:=((V5 - MA(V5,30)) / (0.015 * AVEDEV(V5,30)));
V8:=IF(((((V6 >= 150) AND (V6 < 200)) AND (V7 >= 150)) AND (V7 < 200)),10,0);
V9:=(IF(((((V6 <= (0 - 150)) AND (V6 > (0 - 200))) AND (V7 <= (0 - 150))) AND (V7 > (0 - 200))),(0 - 10),V8) * VAR2N);
VA:=(((CLOSE - MA(CLOSE,13)) / MA(CLOSE,13)) * 100);
VB:=(100 - ABS(VA));
VC:=((3 * SMA((((INDEXC - LLV(INDEXL,55)) / (HHV(INDEXH,55) - LLV(INDEXL,55))) * 100),20,1)) - (2 * SMA(SMA((((INDEXC - LLV(INDEXL,55)) / (HHV(INDEXH,55) - LLV(INDEXL,55))) * 100),20,1),15,1)));
VD:=((3 * SMA((((INDEXO - LLV(INDEXL,55)) / (HHV(INDEXH,55) - LLV(INDEXL,55))) * 100),20,1)) - (2 * SMA(SMA((((INDEXO - LLV(INDEXL,55)) / (HHV(INDEXH,55) - LLV(INDEXL,55))) * 100),20,1),15,1)));
VE:=(REF(LOW,1) * 0.9);
VF:=(LOW * 0.9);
V10:=(((VF * VOL) + (VE * (CAPITAL - VOL))) / CAPITAL);
V11:=EMA(V10,30);
V12:=(V11 - CLOSE);
V13:=REF(CLOSE,1);
V14:=((SMA(MAX((CLOSE - V13),0),7,1) / SMA(ABS((CLOSE - V13)),7,1)) * 100);
V15:=((SMA(MAX((CLOSE - V13),0),13,1) / SMA(ABS((CLOSE - V13)),13,1)) * 100);
V16:=BARSCOUNT(CLOSE);
V17:=((SMA(MAX((CLOSE - REF(CLOSE,1)),0),6,1) / SMA(ABS((CLOSE - REF(CLOSE,1))),6,1)) * 100);
V18:=(((((0 - 100) * (HHV(HIGH,60) - CLOSE)) / (HHV(HIGH,60) - LLV(LOW,60))) + 50) * 2);
V19:=(((CLOSE - LLV(LOW,15)) / (HHV(HIGH,15) - LLV(LOW,15))) * 100);
V1A:=((SMA(V19,4,1) - 50) * 2);
V1B:=SMA(V1A,3,1);
V1C:=(((INDEXC - LLV(INDEXL,14)) / (HHV(INDEXH,14) - LLV(INDEXL,14))) * 100);
V1D:=SMA(V1C,4,1);
V1E:=SMA(V1D,3,1);
V1F:=(((HHV(HIGH,30) - CLOSE) / CLOSE) * 100);
V20:=(IF((((((((((V17 <= 25) AND (V18 < (0 - 95))) AND (V1F > 20)) AND (V1B < (0 - 30))) AND (V1E < 30)) AND (V12 >= (0 - 0.25))) AND (V14 < 22)) AND (V15 < 28)) AND (V16 > 50)),80,0) * VAR2N);
空方:(0 - (IF((V1 < 0),V2,0) * VAR2N)),LINESTICK;
(0 - 40);
C0:=(((HIGH + LOW) + CLOSE) / 3);
A1:=HHV(C0,14);
A2:=LLV(C0,14);
A3:=(A1 - A2);
A4:=(EMA(((C0 - A2) / A3),2) * 100);
B1:=HHV(C0,30);
B2:=LLV(C0,30);
B3:=(B1 - B2);
B4:=(EMA(((C0 - B2) / B3),2) * 100);
C1:=HHV(C0,55);
C2:=LLV(C0,55);
C3:=(C1 - C2);
C4:=(EMA(((C0 - C2) / C3),2) * 100);
A10:=(A4 - 50);
A20:=(B4 - 50);
A30:=(C4 - 50);
DRAWICON(CROSS(A1,0),0,4);
RSV2:=(((CLOSE - LLV(LOW,30)) / (HHV(HIGH,30) - LLV(LOW,30))) * 100);
K2:=SMA(RSV2,3,1);
D2:=SMA(K2,3,1);
J2:=((3 * K2) - (2 * D2));
动力线:=(EMA(J2,6) * VAR2N),colorFF00FF;
VAR2W:=EMA(CLOSE,5);
RSI1W:=((SMA(MAX((CLOSE - VAR2W),0),6,1) / SMA(ABS((CLOSE - VAR2W)),6,1)) * 100);
RSI2W:=((SMA(MAX((CLOSE - VAR2W),0),3,1) / SMA(ABS((CLOSE - VAR2W)),3,1)) * 100);
VAR1F:="KDJ.D"(18,5,6);
准备:IF(((((((((动力线 < 15.5) AND (空方 < (0 - 30))) AND (VAR1F < 35)) AND (RSI1W < 10)) AND (RSI2W < 6.5)) AND (A10 < (0 - 47))) AND (A20 < (0 - 47))) AND (A30 < (0 - 48.5))),50,0);
先锋:(IF(((空方 < (0 - 38)) AND (准备 > 0)),70,0) * VAR2N);

[ 本帖最后由 张杰张 于 2008-4-28 06:46 编辑 ]

将在588楼公开源码——冲你这句话，就顶你！

谢谢分享

din

支持

楼上的，加紧！！

谢谢！

怎么是加密的呀

900ubs连接线

谢谢！

谢谢．

谢谢,要求太高了，要顶到588楼。

谢谢分享

故弄玄虚

顶

顶

顶

能不能把主图工式先发出来看一下啊，楼主？

就顶你！

谢谢！

ddddddddddddddddddddddddd

非常感谢！

谢谢分享

能不能把主图工式先发出来看一下啊

支持

588楼也太远了点吧，图也没有让人瞎顶

要求太高了