六十四卦公式（大智慧）

大漠枭雄

六十四卦公式（大智慧）

来自：MACD论坛(bbs.macd.cn) 作者：大漠枭雄 浏览：10437 回复：34

以开盘价起卦，算个半成品吧，个股能起卦，但是指数不行（数字太多，本人水平又又限，弄了很久都没搞掂，哈，哈，）


FZ:=FLOOR(O*100+0.5);
F5:=FLOOR(FZ/1000);
F1:=floor(o*100/1000);
F2:=FLOOR((FZ-F5*1000)/100);
F3:=FLOOR((FZ-F5*1000-F2*100)/10);
F4:=FZ-F5*1000-F2*100-F3*10;
f6:=f1+f2;
f7:=if(f3+f4>16,f3+f4-16,f3+f4);
f8:=if(f6>8,f6-8,f6);
f9:=if(f7>8,f7-8,f7);
DRAWTEXT(f8=1 AND f9=1,60,'天'),COLORwhite;
DRAWTEXT(f8=1 AND f9=2,60,'履'),COLORred;
DRAWTEXT(f8=1 AND f9=3,90,'同'),COLORred;
DRAWTEXT(f8=1 AND f9=3,40,'人'),COLORred;
DRAWTEXT(f8=1 AND f9=4,90,'无'),COLORred;
DRAWTEXT(f8=1 AND f9=4,40,'妄'),COLORred;
DRAWTEXT(f8=1 AND f9=5,60,'姤'),COLORred;
DRAWTEXT(f8=1 AND f9=6,60,'讼'),COLORwhite;
DRAWTEXT(f8=1 AND f9=7,60,'遁'),COLORwhite;
DRAWTEXT(f8=1 AND f9=8,60,'否'),COLORwhite;
DRAWTEXT(f8=1 AND f9=0,60,'否'),COLORwhite;
DRAWTEXT(f8=2 AND f9=1,60,'夬'),COLORwhite;
DRAWTEXT(f8=2 AND f9=2,60,'泽'), COLORwhite;
DRAWTEXT(f8=2 AND f9=3,60,'革'),COLORwhite;
DRAWTEXT(f8=2 AND f9=4,60,'随'), COLORwhite;
DRAWTEXT(f8=2 AND f9=5,90,'大'),COLORwhite;
DRAWTEXT(f8=2 AND f9=5,40,'过'), COLORwhite;
DRAWTEXT(f8=2 AND f9=6,60,'困'), COLORwhite;
DRAWTEXT(f8=2 AND f9=7,60,'咸'), COLORwhite;
DRAWTEXT(f8=2 AND f9=8,60,'萃'), COLORwhite;
DRAWTEXT(f8=2 AND f9=8,60,'萃'), COLORwhite;
DRAWTEXT(f8=3 AND f9=1,90,'大'), COLOrwhite;
DRAWTEXT(f8=3 AND f9=1,40,'有'), COLORwhite;
DRAWTEXT(f8=3 AND f9=2,60,'睽'),COLORred;
DRAWTEXT(f8=3 AND f9=3,60,'火'), COLORred;
DRAWTEXT(f8=3 AND f9=4,90,'噬'),COLORwhite;
DRAWTEXT(f8=3 AND f9=4,40,'嗑'), COLORwhite;
DRAWTEXT(f8=3 AND f9=5,60,'鼎'), COLORwhite;
DRAWTEXT(f8=3 AND f9=6,90,'未'), COLORwhite;
DRAWTEXT(f8=3 AND f9=6,40,'济'), COLORwhite;
DRAWTEXT(f8=3 AND f9=7,60,'旅'), COLORwhite;
DRAWTEXT(f8=3 AND f9=8,60,'晋'), COLORred;
DRAWTEXT(f8=3 AND f9=0,60,'晋'), COLORred;
DRAWTEXT(f8=4 AND f9=1,90,'大'), COLORred;
DRAWTEXT(f8=4 AND f9=1,40,'壮'), COLORred;
DRAWTEXT(f8=4 AND f9=2,90,'归'), COLORred;
DRAWTEXT(f8=4 AND f9=2,40,'妹'),COLORred;
DRAWTEXT(f8=4 AND f9=3,60,'丰'), COLORred;
DRAWTEXT(f8=4 AND f9=4,60,'雷'), COLORwhite;
DRAWTEXT(f8=4 AND f9=5,60,'恒'), COLORred;
DRAWTEXT(f8=4 AND f9=6,60,'解'), COLORred;
DRAWTEXT(f8=4 AND f9=7,90,'小'), COLORwhite;
DRAWTEXT(f8=4 AND f9=7,40,'过'), COLORwhite;
DRAWTEXT(f8=4 AND f9=8,60,'豫'), COLORred;
DRAWTEXT(f8=4 AND f9=0,60,'豫'), COLORred;
DRAWTEXT(f8=5 AND f9=1,90,'小'), COLORred;
DRAWTEXT(f8=5 AND f9=1,40,'畜'), COLORred;
DRAWTEXT(f8=5 AND f9=2,90,'中'), COLORred;
DRAWTEXT(f8=5 AND f9=2,40,'孚'), COLORred;
DRAWTEXT(f8=5 AND f9=3,90,'家'), COLORred;
DRAWTEXT(f8=5 AND f9=3,40,'人'), COLORred;
DRAWTEXT(f8=5 AND f9=4,60,'益'), COLORwhite;
DRAWTEXT(f8=5 AND f9=5,60,'风'), COLORwhite;
DRAWTEXT(f8=5 AND f9=6,60,'涣'), COLORwhite;
DRAWTEXT(f8=5 AND f9=7,60,'渐'), COLORwhite;
DRAWTEXT(f8=5 AND f9=8,60,'观'), COLORwhite;
DRAWTEXT(f8=5 AND f9=0,60,'观'), COLORwhite;
DRAWTEXT(f8=6 AND f9=1,60,'需'), COLORred;
DRAWTEXT(f8=6 AND f9=2,60,'节'), COLORred;
DRAWTEXT(f8=6 AND f9=3,90,'既'), COLORwhite;
DRAWTEXT(f8=6 AND f9=3,40,'济'), COLORwhite;
DRAWTEXT(f8=6 AND f9=4,60,'屯'), COLORred;
DRAWTEXT(f8=6 AND f9=5,60,'井'), COLORwhite;
DRAWTEXT(f8=6 AND f9=6,60,'水'), COLORred;
DRAWTEXT(f8=6 AND f9=7,60,'蹇'), COLORred;
DRAWTEXT(f8=6 AND f9=8,60,'比'), COLORwhite;
DRAWTEXT(f8=6 AND f9=0,60,'比'), COLORwhite;
DRAWTEXT(f8=7 AND f9=1,90,'大'), COLORred;
DRAWTEXT(f8=7 AND f9=1,40,'畜'), COLORred;
DRAWTEXT(f8=7 AND f9=2,60,'损'), COLORwhite;
DRAWTEXT(f8=7 AND f9=3,50,'贲'), COLORwhite;
DRAWTEXT(f8=7 AND f9=4,60,'颐'), COLORwhite;
DRAWTEXT(f8=7 AND f9=5,60,'蛊'), COLORwhite;
DRAWTEXT(f8=7 AND f9=6,60,'蒙'), COLORwhite;
DRAWTEXT(f8=7 AND f9=7,60,'山'), COLORred;
DRAWTEXT(f8=7 AND f9=8,60,'剥'), COLORwhite;
DRAWTEXT(f8=7 AND f9=0,60,'剥'), COLORwhite;
DRAWTEXT(f8=8 AND f9=1,60,'泰'), COLORwhite;
DRAWTEXT(f8=8 AND f9=2,60,'临'), COLORwhite;
DRAWTEXT(f8=8 AND f9=3,90,'明'), COLORred;
DRAWTEXT(f8=8 AND f9=3,40,'夷'), COLORred;
DRAWTEXT(f8=8 AND f9=4,60,'复'), COLORwhite;
DRAWTEXT(f8=8 AND f9=5,60,'升'), COLORwhite;
DRAWTEXT(f8=8 AND f9=6,60,'师'), COLORred;
DRAWTEXT(f8=8 AND f9=7,60,'谦'), COLORwhite;
DRAWTEXT(f8=8 AND f9=8,60,'地'), COLORwhite;
DRAWTEXT(f8=8 AND f9=0,60,'地'), COLORwhite;

大漠枭雄

FZ:=FLOOR(O*100+0.5);
F5:=FLOOR(FZ/1000);
F1:=floor(o*100/1000);
F2:=FLOOR((FZ-F5*1000)/100);
F3:=FLOOR((FZ-F5*1000-F2*100)/10);
F4:=FZ-F5*1000-F2*100-F3*10;
f6:=f1+f2;
f7:=if(f3+f4>16,f3+f4-16,f3+f4);
f8:=if(f6>8,f6-8,f6);
f9:=if(f7>8,f7-8,f7);


ifs(f8=1 AND f9=1, '乾为天，有刚硬之象','')+
ifs(f8=1 AND f9=2,'天泽履：如履虎尾之卦，安中防危之象','')+
ifs(f8=1 AND f9=3,'天火同人：游鱼从水之卦，二人分金之象','')+
ifs(f8=1 AND f9=4,'天雷无妄：石中蕴玉之卦，守旧安常之象','')+
ifs(f8=1 AND f9=5,'天风姤：风云相济之卦，或聚或散之象','')+
ifs(f8=1 AND f9=6,'天水讼：俊鹰逐兔之卦，天水相违之象','')+
ifs(f8=1 AND f9=7, '天山遁：豹隐南山之卦，守道远恶之象','')+
ifs(f8=1 AND f9=8, '天地否：天地不交之卦，人口不圆之象','')+
ifs(f8=1 AND f9=0,'天地否：天地不交之卦，人口不圆之象','')+
ifs(f8=2 AND f9=1,'泽天夬：反目成仇之卦，险中求利之象','')+
ifs(f8=2 AND f9=2,'兑为泽：江湖养物之卦，天降雨泽之象','')+
ifs(f8=2 AND f9=3,'泽火革：豹变为虎之卦，改旧从新之象','')+
ifs(f8=2 AND f9=4,'泽雷随：良石琢玉之卦，如水推舟之象','')+
ifs(f8=2 AND f9=5,'泽风大过：寒木生花之卦，本未俱弱之象','')+
ifs(f8=2 AND f9=6,'泽水困：河中无水之卦，守己待时之象','')+
ifs(f8=2 AND f9=7,'泽山咸：山泽通气之课，至诚感神之卦','')+
ifs(f8=2 AND f9=8,'泽地萃：鱼龙汇聚之卦，如水就下之象','')+
ifs(f8=3 AND f9=1,'火天大有：金玉满堂之卦，日丽中天之象','')+
ifs(f8=3 AND f9=2,'火泽睽：猛虎陷井之卦，二女同居之象','')+
ifs(f8=3 AND f9=3,'离为火：飞禽遇网之课，大明当天之象','')+
ifs(f8=3 AND f9=4,'火雷噬嗑：日中为市之卦，颐中有物之象','')+
ifs(f8=3 AND f9=5,'火风鼎：调和鼎鼎之卦，去故取新之象','')+
ifs(f8=3 AND f9=6,'火水未济：碣海求珠之卦，忧中望喜之象','')+
ifs(f8=3 AND f9=7,'火山旅：如鸟焚巢之课，乐极生悲之象','')+
ifs(f8=3 AND f9=8,'火地晋：龙剑出匣之卦，以臣遇君之象','')+
ifs(f8=4 AND f9=1,'雷天大壮：抵羊触藩之卦，先曲后顺之象','')+
ifs(f8=4 AND f9=2,'雷泽归妹：浮云蔽日之卦，阴阳不交之象','')+
ifs(f8=4 AND f9=3,'雷火丰：日丽中天之卦，背暗向明之课','')+
ifs(f8=4 AND f9=4,'震为雷：震惊百里之卦，有声无形之象','')+
ifs(f8=4 AND f9=5,'雷风恒：日月长明之卦，四时不没之象','')+
ifs(f8=4 AND f9=6,'雷水解：春雷行雨之卦，忧散喜生之象','')+
ifs(f8=4 AND f9=7,'雷山小过：飞鸟遗音之卦，上逆下顺之象','')+
ifs(f8=4 AND f9=8,'雷地豫：凤凰生雏之卦，万物生发之象','')+
ifs(f8=4 AND f9=0,'雷地豫：凤凰生雏之卦，万物生发之象','')+
ifs(f8=5 AND f9=1,'风天小畜：匣藏宝剑之卦，密云不雨之象','')+
ifs(f8=5 AND f9=2,'风泽中孚：鹤呜子和之卦，事有定期之象','')+
ifs(f8=5 AND f9=3,'风火家人：入海求珠之课，开花结子之象','')+
ifs(f8=5 AND f9=4,'风雷益：鸿鹄遇风之课，湖水添河之象','')+
ifs(f8=5 AND f9=5,'巽为风：风行草僵之封，上行下效之象','')+
ifs(f8=5 AND f9=6,'风水涣：顺水行舟之卦，大风吹物之象','')+
ifs(f8=5 AND f9=7,'风山渐：高山植木之卦，积小成大之象','')+
ifs(f8=5 AND f9=8,'风地观：云卷晴空之卦，春花竞发之象','')+
ifs(f8=5 AND f9=0,'风地观：云卷晴空之卦，春花竞发之象','')+
ifs(f8=6 AND f9=1,'水天需：云霭中天之卦，密云不雨之象','')+
ifs(f8=6 AND f9=2,'水泽节：船行风横之卦，寒暑有节之象','')+
ifs(f8=6 AND f9=3,'水火既济：舟揖济川之课，阴阳配合之象','')+
ifs(f8=6 AND f9=4, '水雷屯：龙居浅水之卦，万物始生之象','')+
ifs(f8=6 AND f9=5, '水风井： 株藏深渊之卦，守静安常之象','')+
ifs(f8=6 AND f9=6,'坎为水：船涉重滩之卦，外虚中实之象','')+
ifs(f8=6 AND f9=7,'水山蹇：飞雁衔芦之卦，背明向暗之象','')+
ifs(f8=6 AND f9=8,'水地比：众星拱比之卦，水行地上之象','')+
ifs(f8=6 AND f9=0,'水地比：众星拱比之卦，水行地上之象','')+
ifs(f8=7 AND f9=1,'山天大畜：龙潜大壑之卦，积小成大之象','')+
ifs(f8=7 AND f9=2,'山泽损：凿石见玉之卦，握上为山之象','')+
ifs(f8=7 AND f9=3,'火山贲：猛虎*岩之卦，光明通泰之象','')+
ifs(f8=7 AND f9=4,'山雷颐：龙隐清潭之卦，迁善远恶之象','')+
ifs(f8=7 AND f9=5,'山风蛊：三蛊食血之卦，以恶害义之象','')+
ifs(f8=7 AND f9=6,'山水蒙：人藏禄宝之卦，万物发生之象','')+
ifs(f8=7 AND f9=7,'艮为山：游鱼避网之卦，积小成高之象','')+
ifs(f8=7 AND f9=8, '山地剥：去旧生新之卦，群英剥尽之象','')+
ifs(f8=7 AND f9=0,'山地剥：去旧生新之卦，群英剥尽之象','')+
ifs(f8=8 AND f9=1,'地天泰：天地交泰之卦，小往大来之象','')+
ifs(f8=8 AND f9=2,'地泽临：凤入鸡群之卦，以上临下之象','')+
ifs(f8=8 AND f9=3,'地火明夷：凤凰垂翼之课，出明入暗之象','')+
ifs(f8=8 AND f9=4,'地雷复：淘沙见金之卦，反复往来之象','')+
ifs(f8=8 AND f9=5,'地风升：灵鸟翱翔之卦，显达光明之象','')+
ifs(f8=8 AND f9=6,'地水师：天马出群之卦，以寡服众之象','')+
ifs(f8=8 AND f9=7,'地山谦：地上有山之卦，仰高就下之象','')+
ifs(f8=8 AND f9=8,'坤为地：生载万物之卦，君昌臣和之象','')+
ifs(f8=8 AND f9=0,'坤为地：生载万物之卦，君昌臣和之象','')

福至

顶一下，谢谢

3a3b

厉害,大智慧也搞起易学公式来了.

20061010

怎么用啊，请楼主说明一下，谢谢！

长虹

什么版本的才能用

cxy_rose

谢谢！

cxy_rose

FZ:=FLOOR(O*100+0.5);
F5:=FLOOR(FZ/1000);
F1:=floor(o*100/1000);
F2:=FLOOR((FZ-F5*1000)/100);
F3:=FLOOR((FZ-F5*1000-F2*100)/10);
F4:=FZ-F5*1000-F2*100-F3*10;
f6:=f1+f2;
f7:=if(f3+f4>16,f3+f4-16,f3+f4);
f8:=if(f6>8,f6-8,f6);
f9:=if(f7>8,f7-8,f7);


能否解说一下这几行公式的涵义

bardy

公式不感兴趣，不过卦名解释不错，顶了

大漠枭雄

原帖由 20061010 于 2007-2-4 21:00 发表
怎么用啊，请楼主说明一下，谢谢！

1. 把要导入的公式（源码）考下来，方法是用左键先把源码变蓝，之后点右键，点复制；
2. 进入大智慧------>特色功能------>自编指标------>常用------>技术指标------>新建，在出现的公式编辑区的下面的空白处,把刚考的源码粘贴上，将公式名称复制后粘贴到公式名称栏------>确认------>退出。

大漠枭雄

原帖由 长虹 于 2007-2-4 21:01 发表
什么版本的才能用

我的是5.45版本，六十四卦公式应该哪个版本都行，个股诊断公式"新一代"好像没这个功能。

大漠枭雄

原帖由 cxy_rose 于 2007-2-5 02:31 发表
能否解说一下这几行公式的涵义

先求出股价中的每一位数字，然后再用数字起卦的方法进行起卦。

dzhdyg

六十四卦公式（大智慧）大智慧新一代可以显示,解盘不能显示,谢谢大漠枭雄 !!

一条好汉

能贴个图吗?谢谢.

zhoubin6156

原帖由 大漠枭雄 于 2007-2-4 17:04 发表
以开盘价起卦，算个半成品吧，个股能起卦，但是指数不行（数字太多，本人水平又又限，弄了很久都没搞掂，哈，哈，）


FZ:=FLOOR(O*100+0.5);
F5:=FLOOR(FZ/1000);
F1:=floor(o*100/1000);
F2:=FLOOR((FZ-F ...

佩服！！

maikef

强人！！！

gs888432

返回值不能为字符串形。第二个公式就有这个问题。

大漠枭雄

第二个是解盘公式,添加在"个股诊断".

fly88

顶一个！

冷眼看市

顶一个！