查看完整版本: DNA-预览版

yngs 2005-12-25 23:29

DNA-预览版

圣诞夜朋友们还是聚在论坛上，我就再发一个源码

var0:=(((LOW + HIGH) + CLOSE) / 3);
VAR4T:=MA(var0,5);
操作T:=HHV(VAR4T,13);
拉升T:=LLV(VAR4T,13);
买卖T:=(0 - (((操作T - VAR4T) / VAR4T) * 100));
J1T:=(0 - (((操作T - 拉升T) / 拉升T) * 100));
J2T:=(买卖T - J1T);
J3T:=IF((买卖T < (0 - 15)),(买卖T + 15),0);
DBXJ1:=IF(((买卖T < (0 - 10)) AND (J1T < (0 - 15))),(J1T + 15),0);
DBXJ2:=((J3T + DBXJ1) / 2);
D:IF((DBXJ2 > 0),0,DBXJ2),POINTDOT;
DBXJ:=INTPART((((SMA(MAX((CLOSE - REF(CLOSE,1)),0),6,1) / SMA(ABS((CLOSE - REF(CLOSE,1))),6,1)) * 10) - 2));
N:IF((DBXJ < 0),0,DBXJ),POINTDOT;
STICKLINE((DBXJ2 < (0 - 5)),0,(0 - 6),10,0),colorFF00FF;
STICKLINE((DBXJ2 < (0 - 4)),0,(0 - 5),10,0),colorFF;
STICKLINE((DBXJ2 < (0 - 3)),0,(0 - 4),10,0),colorFFFF;
STICKLINE((DBXJ2 < (0 - 2)),0,(0 - 3),10,0),colorFF00;
STICKLINE((DBXJ2 < (0 - 1)),0,(0 - 2),10,0),colorFFFF00;
STICKLINE((DBXJ2 < 0),0,(0 - 1),10,0),colorFFFFFF;
STICKLINE((DBXJ > 5),0,6,10,0),colorFF00FF;
STICKLINE((DBXJ > 4),0,5,10,0),colorFF;
STICKLINE((DBXJ > 3),0,4,10,0),colorFFFF;
STICKLINE((DBXJ > 2),0,3,10,0),colorFF00;
STICKLINE((DBXJ > 1),0,2,10,0),colorFFFF00;
STICKLINE((DBXJ > 0),0,1,10,0),colorFFFFFF;
A:STICKLINE((CLOSE > 0),(0 - 0.3),0.3,10,0),colorFF0000;
DBXK:=INBLOCK('ST板块');
KB:=INBLOCK('*ST板块');
KC:=IF(((DBXK = 1) OR (KB = 1)),0,1);
ST:=MAX((0 - D),(0 - REF(D,1)));
DC:=IF((SYSPARAM(1) = (BARSSINCE((CLOSE > 0)) + 1)),1,0);
DRAWTEXT(((DC > 0) AND (CLOSE > 0)),6,'股票DNA密码正式版解读:'),ALIGN0,colorFFFFFF;
DRAWTEXT(((DC > 0) AND ((N = REF(N,1)) OR (N < REF(N,1)))),5,'请先参考并完成昨日的指示操作\n昨日无指示则今日无需操作。'),ALIGN0,colorFFFF00;
DRAWTEXT((((((DC > 0) AND (N > REF(N,1))) AND (D = 0)) AND (REF(D,1) = 0)) AND (N = 1)),5,'请先参考并完成昨日的指示操作!\n昨日无指示则今日无需操作。'),ALIGN0,colorFFFF00;
DRAWTEXT((((((DC > 0) AND (N > REF(N,1))) AND (N = 1)) AND ((D < 0) OR (REF(D,1) < 0))) AND (((J3T > REF(J3T,1)) OR (DBXJ1 > REF(DBXJ1,1))) OR (DBXJ2 = REF(DBXJ2,1)))),5,'今日可适量买进，仓量%:\n如果是补仓增仓则必须有较多空闲资金或处于亏损才操作！'),ALIGN2,colorFF00;
DRAWTEXT((((((DC > 0) AND (N > REF(N,1))) AND (N = 1)) AND ((D < 0) OR (REF(D,1) < 0))) AND (J3T < REF(J3T,1))),5,'请先参考并完成昨日的指示操作!\n昨日无指示则今日无需操作！'),ALIGN2,colorFFFF00;
DRAWNUMBER((((((DC > 0) AND (N > REF(N,1))) AND (N = 1)) AND ((D < 0) OR (REF(D,1) < 0))) AND (((J3T > REF(J3T,1)) OR (DBXJ1 > REF(DBXJ1,1))) OR (DBXJ2 = REF(DBXJ2,1)))),5,ST,0),ALIGN1,colorFF;
DRAWTEXT(((((DC > 0) AND (N > REF(N,1))) AND (N = 2)) AND ((D < 0) OR (REF(D,1) < 0))),5,'如果已经持股，那么亏则买进，仓量%:\n盈利则减半！'),ALIGN2,colorFFFF00;
DRAWNUMBER(((((DC > 0) AND (N > REF(N,1))) AND (N = 2)) AND ((D < 0) OR (REF(D,1) < 0))),5,ST,0),ALIGN1,colorFF;
DRAWTEXT((((((DC > 0) AND (N = 2)) AND (N > REF(N,1))) AND (D = 0)) AND (REF(D,1) = 0)),5,'如果已经持股，那么盈利则卖出，亏损则继续持股！'),ALIGN0,colorFFFF;
DRAWTEXT((((DC > 0) AND (N = 3)) AND (N > REF(N,1))),5,'如果已经持股，那么盈利则卖出！亏损则继续持股！'),ALIGN0,colorFFFF;
DRAWTEXT((((DC > 0) AND (N = 4)) AND (N > REF(N,1))),5,'如果已经持股，那么盈利则卖出,亏损则减三分之一！'),ALIGN0,colorFFFF;
DRAWTEXT((((DC > 0) AND (N = 5)) AND (N > REF(N,1))),5,'如果已经持股，那么盈利则卖出,亏损则减半！'),ALIGN0,colorFFFF;
DRAWTEXT((((DC > 0) AND (N > 5)) AND (N > REF(N,1))),5,'如果还有持股，那么请立即无条件卖出！'),ALIGN0,colorFF00FF;
DRAWTEXT(((DC > 0) AND (CLOSE > 0)),(0 - 0.5),'买卖参考价（元）:'),ALIGN2,colorFF0000;
DRAWNUMBER(((DC > 0) AND (CLOSE > 0)),(0 - 0.5),CLOSE,2),ALIGN1,colorFF;
初选范围:IF(((D < 0) OR (REF(D,1) < 0)),1,0),POINTDOT,color808080;
出击时机:IF((((N > REF(N,1)) AND ((N = 1) OR (N = 2))) AND ((D < 0) OR (REF(D,1) < 0))),1,0),POINTDOT,colorFF00;

[color=Teal][align=right] 本贴由 yngs 于 2005-12-26 00:06 最后编辑 [/align][/color]

yngs 2005-12-25 23:32

说明：

前提：日K线数据必须尽量齐全准确，特别是除权数据，否则可能误判（如除权留下很大的缺口）；

忠告：不要追求每天都有操作，不要追求很大暴利，每年有10％以上盈利，就是基本成功，每年有30％以上盈利，那说明运气比较好（对于本系统而言），不会出现大的失误（一次都不出错，那是不可能的，如果需要成功率100％的公式，随时都可制作出来，问题是没有实战意义），大多数操作可以盈利，长期都适用，才是可以接受的操盘模式；

机构：太大的资金不适合本操作模式，如1000万以上，已经可以初步控盘（有时100万即可拉到涨停），本公式也许只是可以提供给机构判断顺势而为，降低运作成本；

操作：盘后按初选范围选股到一个板块，盘中监控该板块即可，具体请将十字光标移动到需要了解的日子，就可以看到指示了，够简单的。

hehesjx 2005-12-26 12:44

愿朋友们在交流中提高，在实战中获利！

hehesjx 2005-12-26 12:45

愿朋友们在交流中提高，在实战中获利！

hehesjx 2005-12-26 12:45

愿朋友们在交流中提高，在实战中获利！

千里快哉风 2005-12-27 00:08

学习了，谢谢

欣儿 2005-12-27 11:42

[quote]Originally posted by [i]yngs[/i] at 2005-12-25 11:32 PM:
说明：

前提：日K线数据必须尽量齐全准确，特别是除权数据，否则可能误判（如除权留下很大的缺口）；

忠告：不要追求每天都有操作，不要追求很大暴利，每年有10％以上盈利，就是基本成功，每年有30％以上盈 ... [/quote]
赚钱的指标，解释简明，加精。(h)

瓜 2005-12-27 15:24

戏谢

xujie 2005-12-27 17:34

ok!

focxu 2005-12-30 10:59

谢谢哦！帖个图看看吧！

王冠杰 2006-2-12 11:03

谢谢 yngs

wuji-006 2006-2-23 18:34

谢谢哦！:clap::clap:

忠剑飞扬 2006-2-24 07:31

学习了，谢谢 !!!不错的!!!!!

天高任鸟飞 2006-2-24 09:00

谢谢

hhyhhy 2006-2-25 15:28

kankan

老兵 2006-2-25 23:14

学习了，谢谢

lhl311 2006-2-28 13:47

帖个图看看

pbb3 2006-2-28 21:36

谢谢，就是字以彩色背景看不太清楚。

hhyhhy 2006-3-1 22:57

谢谢分享

阿强 2006-3-2 12:57

谢谢分享

6406753 2006-3-3 20:52

0000000000000000

东南人氏 2006-3-3 22:10

谢谢

zzm8 2006-3-4 00:12

好帖！谢谢！！

8659885 2006-3-26 16:01

学习了，谢谢

忠剑飞扬 2006-3-28 02:26

不错再顶！！！！

四不象 2006-3-28 08:59

图都没有

ahmmy 2006-4-14 21:05

:clap::clap::p::p::plain::plain:

ahmmy 2006-4-14 21:10

我来贴图 DNA-预览版

DNA-预览版

zzm8 2006-4-24 00:29

学习了，谢谢

liuxinliu 2006-7-23 22:48

dddddddddddddd

印泥 2007-2-5 19:32

改成大智慧的吧

老龍 2007-2-12 09:50

好帖！謝謝！！

xpceo 2007-12-23 10:10

没有什么提示呀
具体还是不太会用

cyzpp 2008-4-13 16:55

学习了，谢谢:smokin:

lyq11880569 2008-7-29 09:41

var0:=(((LOW + HIGH) + CLOSE) / 3);
VAR4T:=MA(var0,5);
操作T:=HHV(VAR4T,13);
拉升T:=LLV(VAR4T,13);
买卖T:=(0 - (((操作T - VAR4T) / VAR4T) * 100));
J1T:=(0 - (((操作T - 拉升T) / 拉升T) * 100));
J2T:=(买卖T - J1T);
J3T:=IF((买卖T < (0 - 15)),(买卖T + 15),0);
DBXJ1:=IF(((买卖T < (0 - 10)) AND (J1T < (0 - 15))),(J1T + 15),0);
DBXJ2:=((J3T + DBXJ1) / 2);
D:IF((DBXJ2 > 0),0,DBXJ2),POINTDOT;
DBXJ:=INTPART((((SMA(MAX((CLOSE - REF(CLOSE,1)),0),6,1) / SMA(ABS((CLOSE - REF(CLOSE,1))),6,1)) * 10) - 2));
N:IF((DBXJ < 0),0,DBXJ),POINTDOT;
STICKLINE((DBXJ2 < (0 - 5)),0,(0 - 6),10,0),colorFF00FF;
STICKLINE((DBXJ2 < (0 - 4)),0,(0 - 5),10,0),colorFF;
STICKLINE((DBXJ2 < (0 - 3)),0,(0 - 4),10,0),colorFFFF;
STICKLINE((DBXJ2 < (0 - 2)),0,(0 - 3),10,0),colorFF00;
STICKLINE((DBXJ2 < (0 - 1)),0,(0 - 2),10,0),colorFFFF00;
STICKLINE((DBXJ2 < 0),0,(0 - 1),10,0),colorFFFFFF;
STICKLINE((DBXJ > 5),0,6,10,0),colorFF00FF;
STICKLINE((DBXJ > 4),0,5,10,0),colorFF;
STICKLINE((DBXJ > 3),0,4,10,0),colorFFFF;
STICKLINE((DBXJ > 2),0,3,10,0),colorFF00;
STICKLINE((DBXJ > 1),0,2,10,0),colorFFFF00;
STICKLINE((DBXJ > 0),0,1,10,0),colorFFFFFF;
A:STICKLINE((CLOSE > 0),(0 - 0.3),0.3,10,0),colorFF0000;
DBXK:=INBLOCK('ST板块');
KB:=INBLOCK('*ST板块');
KC:=IF(((DBXK = 1) OR (KB = 1)),0,1);
ST:=MAX((0 - D),(0 - REF(D,1)));
DC:=IF((SYSPARAM(1) = (BARSSINCE((CLOSE > 0)) + 1)),1,0);
DRAWTEXT(((DC > 0) AND (CLOSE > 0)),6,'股票DNA密码正式版解读:'),ALIGN0,colorFFFFFF;
DRAWTEXT(((DC > 0) AND ((N = REF(N,1)) OR (N < REF(N,1)))),5,'请先参考并完成昨日的指示操作\n昨日无指示则今日无需操作。'),ALIGN0,colorFFFF00;
DRAWTEXT((((((DC > 0) AND (N > REF(N,1))) AND (D = 0)) AND (REF(D,1) = 0)) AND (N = 1)),5,'请先参考并完成昨日的指示操作!\n昨日无指示则今日无需操作。'),ALIGN0,colorFFFF00;
DRAWTEXT((((((DC > 0) AND (N > REF(N,1))) AND (N = 1)) AND ((D < 0) OR (REF(D,1) < 0))) AND (((J3T > REF(J3T,1)) OR (DBXJ1 > REF(DBXJ1,1))) OR (DBXJ2 = REF(DBXJ2,1)))),5,'今日可适量买进，仓量%:\n如果是补仓增仓则必须有较多空闲资金或处于亏损才操作！'),ALIGN2,colorFF00;
DRAWTEXT((((((DC > 0) AND (N > REF(N,1))) AND (N = 1)) AND ((D < 0) OR (REF(D,1) < 0))) AND (J3T < REF(J3T,1))),5,'请先参考并完成昨日的指示操作!\n昨日无指示则今日无需操作！'),ALIGN2,colorFFFF00;
DRAWNUMBER((((((DC > 0) AND (N > REF(N,1))) AND (N = 1)) AND ((D < 0) OR (REF(D,1) < 0))) AND (((J3T > REF(J3T,1)) OR (DBXJ1 > REF(DBXJ1,1))) OR (DBXJ2 = REF(DBXJ2,1)))),5,ST,0),ALIGN1,colorFF;
DRAWTEXT(((((DC > 0) AND (N > REF(N,1))) AND (N = 2)) AND ((D < 0) OR (REF(D,1) < 0))),5,'如果已经持股，那么亏则买进，仓量%:\n盈利则减半！'),ALIGN2,colorFFFF00;
DRAWNUMBER(((((DC > 0) AND (N > REF(N,1))) AND (N = 2)) AND ((D < 0) OR (REF(D,1) < 0))),5,ST,0),ALIGN1,colorFF;
DRAWTEXT((((((DC > 0) AND (N = 2)) AND (N > REF(N,1))) AND (D = 0)) AND (REF(D,1) = 0)),5,'如果已经持股，那么盈利则卖出，亏损则继续持股！'),ALIGN0,colorFFFF;
DRAWTEXT((((DC > 0) AND (N = 3)) AND (N > REF(N,1))),5,'如果已经持股，那么盈利则卖出！亏损则继续持股！'),ALIGN0,colorFFFF;
DRAWTEXT((((DC > 0) AND (N = 4)) AND (N > REF(N,1))),5,'如果已经持股，那么盈利则卖出,亏损则减三分之一！'),ALIGN0,colorFFFF;
DRAWTEXT((((DC > 0) AND (N = 5)) AND (N > REF(N,1))),5,'如果已经持股，那么盈利则卖出,亏损则减半！'),ALIGN0,colorFFFF;
DRAWTEXT((((DC > 0) AND (N > 5)) AND (N > REF(N,1))),5,'如果还有持股，那么请立即无条件卖出！'),ALIGN0,colorFF00FF;
DRAWTEXT(((DC > 0) AND (CLOSE > 0)),(0 - 0.5),'买卖参考价（元）:'),ALIGN2,colorFF0000;
DRAWNUMBER(((DC > 0) AND (CLOSE > 0)),(0 - 0.5),CLOSE,2),ALIGN1,colorFF;
初选范围:IF(((D < 0) OR (REF(D,1) < 0)),1,0),POINTDOT,color808080;
出击时机:IF((((N > REF(N,1)) AND ((N = 1) OR (N = 2))) AND ((D < 0) OR (REF(D,1) < 0))),1,0),POINTDOT,colorFF00;

页: [1]

查看完整版本: DNA-预览版