通达信一个算卦的指标源码

一个算卦的指标。

 把最近6日的阴阳K线，转成阴阳爻。别问我有没有用。新鲜出炉，蛋疼写着玩的。

DRAWRECTREL(10,50,CONST(IF(C>REF(C,1),100,50)),100,255),NOFRAME;

DRAWRECTREL(60,50,100,100,255),NOFRAME;

DRAWRECTREL(10,150,CONST(IF(REF(C,1)>REF(C,2),100,50)),200,255),NOFRAME;

DRAWRECTREL(60,150,100,200,255),NOFRAME;

DRAWRECTREL(10,250,CONST(IF(REF(C,2)>REF(C,3),100,50)),300,255),NOFRAME;

DRAWRECTREL(60,250,100,300,255),NOFRAME;

DRAWRECTREL(10,350,CONST(IF(REF(C,3)>REF(C,4),100,50)),400,255),NOFRAME;

DRAWRECTREL(60,350,100,400,255),NOFRAME;

DRAWRECTREL(10,450,CONST(IF(REF(C,4)>REF(C,5),100,50)),500,255),NOFRAME;

DRAWRECTREL(60,450,100,500,255),NOFRAME;

DRAWRECTREL(10,550,CONST(IF(REF(C,5)>REF(C,6),100,50)),600,255),NOFRAME;

DRAWRECTREL(60,550,100,600,255),NOFRAME;

BM:=CONST(IF(C>REF(C,1),32,0))+

CONST(IF(REF(C,1)>REF(C,2),16,0))+

CONST(IF(REF(C,2)>REF(C,3),8,0))+

CONST(IF(REF(C,3)>REF(C,4),4,0))+

CONST(IF(REF(C,4)>REF(C,5),2,0))+

CONST(IF(REF(C,5)>REF(C,6),1,0));

DRAWTEXT_FIX(BM=0,0.15,0.20,0,'坤 坤为地 坤上坤下 《坤》：元亨。利牝马之贞。君子有攸往，先迷，后得主，利。西南得朋，东北丧朋。安贞吉。');

DRAWTEXT_FIX(BM=1,0.15,0.20,0,'复 地雷复 坤上震下 《复》：亨。出入无疾。朋来无咎。反覆其道，七日来复，利有攸往。');

DRAWTEXT_FIX(BM=2,0.15,0.20,0,'师 地水师 坤上坎下 《师》：贞丈人吉，无咎。');

DRAWTEXT_FIX(BM=3,0.15,0.20,0,'临 地泽临 坤上兑下 《临》：元亨，利贞。至于八月有凶。');

DRAWTEXT_FIX(BM=4,0.15,0.20,0,'谦 地山谦 坤上艮下 《谦》：亨。君子有终。');

DRAWTEXT_FIX(BM=5,0.15,0.20,0,'明夷 地火明夷 坤上离下 《明夷》：利艰贞。');

DRAWTEXT_FIX(BM=6,0.15,0.20,0,'升 地风升 坤上巽下 《升》：元亨。用见大人，勿恤。南征吉。');

DRAWTEXT_FIX(BM=7,0.15,0.20,0,'泰 天地泰 坤上乾下 《泰》：小往大来，吉，亨。');

DRAWTEXT_FIX(BM=8,0.15,0.20,0,'豫 雷地豫 震上坤下 《豫》：利建侯行师。');

DRAWTEXT_FIX(BM=9,0.15,0.20,0,'震 震为雷 震上震下 《震》：亨。震来XIXI，笑言哑哑，震惊百里，不丧匕鬯。');

DRAWTEXT_FIX(BM=10,0.15,0.20,0,'解 雷水解 震上坎下 《解》：利西南。无所往，其来复吉。有攸往，夙吉。');

DRAWTEXT_FIX(BM=11,0.15,0.20,0,'归妹 雷泽归妹 震上兑下 《归妹》：征凶，无攸利。');

DRAWTEXT_FIX(BM=12,0.15,0.20,0,'小过 雷山小过 震上艮下 《小过》：亨。利贞。可小事，不可大事。飞鸟遗之音，不宜上，宜下，大吉。');

DRAWTEXT_FIX(BM=13,0.15,0.20,0,'丰 雷火丰 震上离下 《丰》：亨，王假之。勿忧，宜日中。');

DRAWTEXT_FIX(BM=14,0.15,0.20,0,'恒 雷风恒 震上巽下 《恒》：亨。无咎。利贞。利有攸往。');

DRAWTEXT_FIX(BM=15,0.15,0.20,0,'大壮 雷天大壮 震上乾下 《大壮》：利贞。');

DRAWTEXT_FIX(BM=16,0.15,0.20,0,'比 水地比 坎上坤下 《比》：吉。原筮，元，永贞，无咎。不宁方来，后夫凶。');

DRAWTEXT_FIX(BM=17,0.15,0.20,0,'屯 水雷屯 坎上震下 《屯》：元亨，利贞。勿用有攸往。利建侯。');

DRAWTEXT_FIX(BM=18,0.15,0.20,0,'坎 坎为水 坎上坎下 《习坎》：有孚维心，亨。行有尚。');

DRAWTEXT_FIX(BM=19,0.15,0.20,0,'节 水泽节 坎上兑下 《节》：亨。苦节，不可贞。');

DRAWTEXT_FIX(BM=20,0.15,0.20,0,'蹇 水山蹇 坎上艮下 《蹇》：利西南，不利东北。利见大人。贞吉。');

DRAWTEXT_FIX(BM=21,0.15,0.20,0,'既济 水火既济 坎上离下 《既济》：亨小，利贞。初吉终乱。');

DRAWTEXT_FIX(BM=22,0.15,0.20,0,'井 水风井 坎上巽下 《井》：改邑不改井，无丧无得。往来井井。汔至，亦未JV井，羸其瓶，凶。');

DRAWTEXT_FIX(BM=23,0.15,0.20,0,'需 水天需 坎上乾下 《需》：有孚，光亨。贞吉，利涉大川。');

DRAWTEXT_FIX(BM=24,0.15,0.20,0,'萃 泽地萃 兑上坤下 《萃》：亨，王假有庙。利见大人。亨，利贞，用大牲吉。利有攸往。');

DRAWTEXT_FIX(BM=25,0.15,0.20,0,'随 泽雷随 兑上震下 《随》：元亨，利贞，无咎。');

DRAWTEXT_FIX(BM=26,0.15,0.20,0,'困 泽水困 兑上坎下 《困》：亨。贞大人吉，无咎。有言不信。');

DRAWTEXT_FIX(BM=27,0.15,0.20,0,'兑 兑为泽 兑上兑下 《兑》：亨。利贞。');

DRAWTEXT_FIX(BM=28,0.15,0.20,0,'咸 泽山咸 兑上艮下 《咸》：亨。利贞。取女吉。');

DRAWTEXT_FIX(BM=29,0.15,0.20,0,'革 泽火革 兑上离下 《革》：已日乃孚。元亨。利贞，悔亡。');

DRAWTEXT_FIX(BM=30,0.15,0.20,0,'大过 泽风大过 兑上巽下 《大过》：栋挠，利有攸往，亨。');

DRAWTEXT_FIX(BM=31,0.15,0.20,0,'夬 泽天夬 兑上乾下 《夬》：扬于王庭，孚号。有厉，告自邑。不利即戎，利有攸往。');

DRAWTEXT_FIX(BM=32,0.15,0.20,0,'剥 山地剥 艮上坤下 《剥》：不利有攸往。');

DRAWTEXT_FIX(BM=33,0.15,0.20,0,'颐 山雷颐 艮上震下 《颐》：贞吉。观颐，自求口实。');

DRAWTEXT_FIX(BM=34,0.15,0.20,0,'蒙 山水蒙 艮上坎下 《蒙》：亨。匪我求童蒙，童蒙求我。初筮告，再三渎，渎则不告。利贞。');

DRAWTEXT_FIX(BM=35,0.15,0.20,0,'损 山泽损 艮上兑下 《损》：有孚，元吉，无咎。可贞，利有攸往。曷之用？二簋可用享。');

DRAWTEXT_FIX(BM=36,0.15,0.20,0,'艮 艮为山 艮上艮下 《艮》：艮其背，不获其身，行其庭，不见其人，无咎。');

DRAWTEXT_FIX(BM=37,0.15,0.20,0,'贲 山火贲 艮上离下 《贲》：亨。小利有攸往。');

DRAWTEXT_FIX(BM=38,0.15,0.20,0,'蛊 山风蛊 艮上巽下 《蛊》：元亨。利涉大川，先甲三日，后甲三日。');

DRAWTEXT_FIX(BM=39,0.15,0.20,0,'大畜 山天大畜 艮上乾下 《大畜》：利贞。不家食吉。利涉大川。');

[1] [2]  下一页