指标公式> 通达信 > 通达信一个算卦的指标源码(2023/9/8 8:27:00)

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

一个算卦的指标。

 把最近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));
DRAWRECTREL(0,0,700,999,1),NOFRAME;
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,'大畜 山天大畜 艮上乾下 《大畜》：利贞。不家食吉。利涉大川。');
DRAWTEXT_FIX(BM=40,0.15,0.20,0,'晋 火地晋 离上坤下 《晋》：康侯用锡马蕃庶，昼日三接。');
DRAWTEXT_FIX(BM=41,0.15,0.20,0,'噬嗑 火雷噬嗑 离上震下 《噬嗑》：亨。利用狱。');
DRAWTEXT_FIX(BM=42,0.15,0.20,0,'未济 火水未济 离上坎下 《未济》：亨。小狐汔济，濡其尾，无攸利。');
DRAWTEXT_FIX(BM=43,0.15,0.20,0,'睽 火泽睽 离上兑下 《睽》：小事吉。');
DRAWTEXT_FIX(BM=44,0.15,0.20,0,'旅 火山旅 离上艮下 《旅》：小亨。旅贞吉。');
DRAWTEXT_FIX(BM=45,0.15,0.20,0,'离 离为火 离上离下 《离》：利贞。亨。畜牝牛吉。');
DRAWTEXT_FIX(BM=46,0.15,0.20,0,'鼎 火风鼎 离上巽下 《鼎》：元吉，亨。');
DRAWTEXT_FIX(BM=47,0.15,0.20,0,'大有 火天大有 离上乾下 《大有》：元亨。');
DRAWTEXT_FIX(BM=48,0.15,0.20,0,'观 风地观 巽上坤下 《观》：盥而不荐。有孚YONG若');
DRAWTEXT_FIX(BM=49,0.15,0.20,0,'益 风雷益 巽上震下 《益》：利有攸往。利涉大川。');
DRAWTEXT_FIX(BM=50,0.15,0.20,0,'涣 风水涣 巽上坎下 《涣》：亨。王假有庙。利涉大川，利贞。');
DRAWTEXT_FIX(BM=51,0.15,0.20,0,'中孚 风泽中孚 巽上兑下 《中孚》：豚鱼，吉。利涉大川，利贞。');
DRAWTEXT_FIX(BM=52,0.15,0.20,0,'渐 风山渐 巽上艮下 《渐》：女归吉，利贞。');
DRAWTEXT_FIX(BM=53,0.15,0.20,0,'家人 风火家人 巽上离下 《家人》：利女贞。');
DRAWTEXT_FIX(BM=54,0.15,0.20,0,'巽 巽为风 巽上巽下 《巽》：小亨。利有攸往。利见大人。');
DRAWTEXT_FIX(BM=55,0.15,0.20,0,'小畜 风天小畜 巽上乾下 《小畜》：亨。密云不雨。自我西郊。');
DRAWTEXT_FIX(BM=56,0.15,0.20,0,'否 地天否 乾上坤下 《否》：否之匪人，不利君子贞，大往小来。');
DRAWTEXT_FIX(BM=57,0.15,0.20,0,'无妄 天雷无妄 乾上震下 《无妄》：元亨，利贞。其匪正有眚，不利有攸往。');
DRAWTEXT_FIX(BM=58,0.15,0.20,0,'讼 天水讼 乾上坎下 《讼》：有孚窒惕，中吉，终凶。利见大人。不利涉大川。');
DRAWTEXT_FIX(BM=59,0.15,0.20,0,'履 天泽履 乾上兑下 《履》：履虎尾，不咥人。亨。');
DRAWTEXT_FIX(BM=60,0.15,0.20,0,'遁 天山遁 乾上艮下 《遁》：亨。小利贞。');
DRAWTEXT_FIX(BM=61,0.15,0.20,0,'同人 天火同人 乾上离下 《同人》：同人于野，亨。利涉大川。利君子贞。');
DRAWTEXT_FIX(BM=62,0.15,0.20,0,'姤 天风姤 乾上巽下 《姤》：女壮，勿用取女。');
DRAWTEXT_FIX(BM=63,0.15,0.20,0,'乾 乾为天 乾上乾下 《乾》：元亨利贞。');


未来函数检测结果如下：
该公式没有未来函数

定制指标公式、软件请联系QQ或微信同号：88652583
置顶指标

相关指标公式


BM赋值:如果收盘价>1日前的收盘价,返回32,否则返回0的最后一日取值设为常数+如果1日前的收盘价>2日前的收盘价,返回16,否则返回0的最后一日取值设为常数+如果2日前的收盘价>3日前的收盘价,返回8,否则返回0的最后一日取值设为常数+如果3日前的收盘价>4日前的收盘价,返回4,否则返回0的最后一日取值设为常数+如果4日前的收盘价>5日前的收盘价,返回2,否则返回0的最后一日取值设为常数+如果5日前的收盘价>6日前的收盘价,返回1,否则返回0的最后一日取值设为常数
相对位置上画矩形,不显示边框
当满足条件BM=0时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=1时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=2时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=3时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=4时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=5时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=6时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=7时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=8时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=9时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=10时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=11时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=12时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=13时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=14时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=15时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=16时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=17时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=18时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=19时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=20时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=21时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=22时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=23时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=24时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=25时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=26时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=27时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=28时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=29时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=30时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=31时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=32时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=33时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=34时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=35时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=36时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=37时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=38时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=39时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=40时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=41时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=42时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=43时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=44时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=45时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=46时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=47时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=48时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=49时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=50时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=51时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=52时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=53时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=54时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=55时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=56时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=57时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=58时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=59时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=60时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=61时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=62时,在横轴0.15纵轴0.20位置书写文字
当满足条件BM=63时,在横轴0.15纵轴0.20位置书写文字
定制指标公式、软件联系我们
  • QQ：88652583
  • 邮箱：88652583@qq.com
  • 工作时间：7:30-21:00
  • 微信：88652583或扫描如下二维码
指标公式网微信联系方式
月度排行
季度排行
半年排行


指标安装下载帮助  -   联系我们  -  乐淘公式网  -  公式网   -  指标公式  -   免责声明  -   隐私政策  -   加入收藏   

@2005-2025 粤ICP备2025457605号-2 乐淘公式网公式网均来源互联网收集整理，如不慎侵犯了你的权益，请联系我们告知，我们将做删除处理
免责声明：乐淘公式网所有指标公式及文章由网络收集，不保障实时性和真实性, 仅供学习研究并不构成投资建议，请勿以此为依据进行股票交易，由此引起的投资亏损与本站无关。
QQ：88652583 微信 88652583
sitemap站点地图