K线64卦副图公式（飞狐）

fract · 发表于 2005-1-13 21:57

K线64卦副图公式（飞狐）

来自：MACD论坛(bbs.macd.cn) 作者：fract 浏览：34492 回复：52

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

最近，重新编写了一个在飞狐软件上应用的K线64卦公式。为了应用灵活方便，未放在主图上，而制成了副图公式。
K线64卦公式中有两个可调参数P1和P2，目前仅考虑4种排卦方式。
P1=0，按常规K线开收定阴阳爻，P1=1，按张东生-常秉义方法定阴阳爻；
P2=0，按K线顺序排卦，左为初爻，右为上爻，P2=1，按K线逆序排卦，右为初爻，左为上爻。
此公式对诸位易学高手而言，可能是没有一点价值，但对易学初学者尚可作为学习参考之用。
本人重新编写这个K线64卦公式，只是给一些像我一样的易学初学者提供一点方便。正是考虑到这一点，公式代码追求一定效率，但又未过于优化，以便于使用者自行修改与扩展。
至于对K线64卦公式的应用体会，我实在谈不出什么新见解。股上峰兄的专帖中有深刻的研究体会。
下面以任选的一个股票为例，看一下4种排卦方式的效果图。先听一下有何改进意见。如认为还有一点参考作用的话，代码可立即贴出。

股上峰 · 发表于 2005-1-13 23:26

Originally posted by fract at 2005-1-13 21:57
最近，重新编写了一个在飞狐软件上应用的K线64卦公式。为了应用灵活方便，未放在主图上，而制成了副图公式。
K线64卦公式中有两个可调参数P1和P2，目前仅考虑4种排卦方式。
P1=0，按常规K线开收定阴阳爻，P1=1， ...

fract弟能提供公式吗,非常感谢

长虹 · 发表于 2005-1-14 06:17

来一份。

王中中 · 发表于 2005-1-14 09:13

来一份。

fract · 发表于 2005-1-14 10:12

Originally posted by 股上峰 at 2005-1-13 23:26

fract弟能提供公式吗,非常感谢

K线64卦副图公式（飞狐）

股上峰 · 发表于 2005-1-14 10:18

Originally posted by fract at 2005-1-14 10:12

K线64卦副图公式（飞狐）

无法导入飞狐

wjn123 · 发表于 2005-1-14 10:30

非常感谢，fract提供的公式！

fract · 发表于 2005-1-14 10:39

[quote]Originally posted by [i]股上峰[/i] at 2005-1-14 10:18

无法导入飞狐 [/quote]
奇怪！您用的什么版本？我用的是公开的正版最高版本V3.8，并未用测试的更高版本V3.9。
现将源代码传上，您直接复制粘贴，再按自己需要任意修改，可能更方便一些。

input:p1(1,0,1),p2(1,0,1);//P1=0，按常规K线开收定阴阳爻，P1=1，按张东生-常秉义方法定阴阳爻；P2=0，按K线顺序排卦，左为初爻，右为上爻，P2=1，按K线逆序排卦
//在副图上显示证卷代码与证卷名称
DRAWTEXT(sysparam(2)=BARSCOUNT(CLOSE),h*1.10,'证卷代码:'+STKLABEL+'；'+'证卷名称:'+STKNAME),COLORGREEN,ALIGN4;
//副图指标，绘K线
STICKLINE(C>O,H,L,0.4,0),COLORRED;
STICKLINE(C>O,O,C,8,1),COLORRED;
STICKLINE(C<=O,H,L,0.4,0),COLORCYAN;
STICKLINE(C<=O,O,C,8,0),COLORCYAN;
//按不同方法定阴阳爻
aa:=AMOUNT/VOL/100;//均价
ai:=if(c=o,aa-ref(aa,1),c-o);//P1=0，按常规K线开收定阴阳爻
aj:=if(c=ref(c,1),aa-ref(aa,1),c-ref(c,1));//P1=1，按张东生-常秉义方法定阴阳爻
a:=if(p1=0,ai,aj);
//对特殊阴阳爻作出标记
DRAWICON((p1=0 and C=O and ai>0) or (p1=1 and C=ref(c,1) and aj>0),L,1),ALIGN5;
DRAWICON((p1=0 and C=O and ai<0) or (p1=1 and C=ref(c,1) and aj<0),L,2),ALIGN5;
//选定6爻，P2=0，按K线顺序排卦，P2=1，按K线逆序排卦
a1:=if(p2=0,ref(a,5),a);
a2:=if(p2=0,ref(a,4),ref(a,1));
a3:=if(p2=0,ref(a,3),ref(a,2));
a4:=if(p2=0,ref(a,2),ref(a,3));
a5:=if(p2=0,ref(a,1),ref(a,4));
a6:=if(p2=0,a,ref(a,5));
//下卦
x1:=a1>0 and a2>0 and a3>0;//下卦乾-阳阳阳
x2:=a1>0 and a2>0 and a3<0;//下卦兑-阳阳阴
x3:=a1>0 and a2<0 and a3>0;//下卦离-阳阴阳
x4:=a1>0 and a2<0 and a3<0;//下卦震-阳阴阴
x5:=a1<0 and a2>0 and a3>0;//下卦巽-阴阳阳
x6:=a1<0 and a2>0 and a3<0;//下卦坎-阴阳阴
x7:=a1<0 and a2<0 and a3>0;//下卦艮-阴阴阳
x8:=a1<0 and a2<0 and a3<0;//下卦坤-阴阴阴
//上卦
s1:=a4>0 and a5>0 and a6>0;//上卦乾-阳阳阳
s2:=a4>0 and a5>0 and a6<0;//上卦兑-阳阳阴
s3:=a4>0 and a5<0 and a6>0;//上卦离-阳阴阳
s4:=a4>0 and a5<0 and a6<0;//上卦震-阳阴阴
s5:=a4<0 and a5>0 and a6>0;//上卦巽-阴阳阳
s6:=a4<0 and a5>0 and a6<0;//上卦坎-阴阳阴
s7:=a4<0 and a5<0 and a6>0;//上卦艮-阴阴阳
s8:=a4<0 and a5<0 and a6<0;//上卦坤-阴阴阴
//乾宫八卦，红色系
DRAWTEXT(x1 and s1,HIGH*1.04,'乾'),ALIGN0,COLOR0000BE;{11乾为天-阳阳阳阳阳阳}
DRAWTEXT(x1 and s2,HIGH*1.04,'夬'),ALIGN0,COLOR0000E4;{21泽天夬-阳阳阳阳阳阴}
DRAWTEXT(x1 and s3,HIGH*1.08,'大\n有'),ALIGN0,COLOR0000EA;{31火天大有-阳阳阳阳阴阳}
DRAWTEXT(x1 and s4,HIGH*1.08,'大\n壮'),ALIGN0,COLOR0000FF;{41雷天大壮-阳阳阳阳阴阴}
DRAWTEXT(x1 and s5,HIGH*1.08,'小\n畜'),ALIGN0,COLOR4441FF;{51风天小畜-阳阳阳阴阳阳}
DRAWTEXT(x1 and s6,HIGH*1.04,'需'),ALIGN0,COLOR436FFF;{61水天需-阳阳阳阴阳阴}
DRAWTEXT(x1 and s7,HIGH*1.08,'大\n畜'),ALIGN0,COLOR7A7DFF;{71山天大畜-阳阳阳阴阴阳}
DRAWTEXT(x1 and s8,HIGH*1.04,'泰'),ALIGN0,COLOR7A91FF;{81地天泰-阳阳阳阴阴阴}
//兑宫八卦，绿色系
DRAWTEXT(x2 and s1,HIGH*1.04,'履'),ALIGN0,COLOR00A300;{12天泽履-阳阳阴阳阳阳}
DRAWTEXT(x2 and s2,HIGH*1.04,'兑'),ALIGN0,COLOR00FF00;{22兑为泽-阳阳阴阳阳阴}
DRAWTEXT(x2 and s3,HIGH*1.04,'睽'),ALIGN0,COLOR00FF00;{32火泽睽-阳阳阴阳阴阳}
DRAWTEXT(x2 and s4,HIGH*1.08,'归\n妹'),ALIGN0,COLOR00FF00;{42雷泽归妹-阳阳阴阳阴阴}
DRAWTEXT(x2 and s5,HIGH*1.08,'中\n孚'),ALIGN0,COLOR00FF00;{52风泽中孚-阳阳阴阴阳阳}
DRAWTEXT(x2 and s6,HIGH*1.04,'节'),ALIGN0,COLOR00FF00;{62水泽节-阳阳阴阴阳阴}
DRAWTEXT(x2 and s7,HIGH*1.04,'损'),ALIGN0,COLOR00FF00;{72山泽损-阳阳阴阴阴阳}
DRAWTEXT(x2 and s8,HIGH*1.04,'临'),ALIGN0,COLOR00FF00;{82地泽临-阳阳阴阴阴阴}
//离宫八卦，黄色系
DRAWTEXT(x3 and s1,HIGH*1.08,'同\n人'),ALIGN0,COLOR00FFFF;{13天火同人-阳阴阳阳阳阳}
DRAWTEXT(x3 and s2,HIGH*1.04,'革'),ALIGN0,COLOR00FFFF;{23泽火革-阳阴阳阳阳阴}
DRAWTEXT(x3 and s3,HIGH*1.04,'离'),ALIGN0,COLOR00FFFF;{33离为火-阳阴阳阳阴阳}
DRAWTEXT(x3 and s4,HIGH*1.04,'丰'),ALIGN0,COLOR00FFFF;{43雷火丰-阳阴阳阳阴阴}
DRAWTEXT(x3 and s5,HIGH*1.08,'家\n人'),ALIGN0,COLOR00FFFF;{53风火家人-阳阴阳阴阳阳}
DRAWTEXT(x3 and s6,HIGH*1.08,'既\n济'),ALIGN0,COLOR00FFFF;{63水火既济-阳阴阳阴阳阴}
DRAWTEXT(x3 and s7,HIGH*1.04,'贲'),ALIGN0,COLOR00FFFF;{73火山贲-阳阴阳阴阴阳}
DRAWTEXT(x3 and s8,HIGH*1.08,'明\n夷'),ALIGN0,COLOR00FFFF;{83地火明夷-阳阴阳阴阴阴}
//震宫八卦，肉粉色系
DRAWTEXT(x4 and s1,HIGH*1.08,'无\n妄'),ALIGN0,COLORCCCCFF;{14天雷无妄-阳阴阴阳阳阳}
DRAWTEXT(x4 and s2,HIGH*1.04,'随'),ALIGN0,COLORCCCCFF;{24泽雷随-阳阴阴阳阳阴}
DRAWTEXT(x4 and s3,HIGH*1.08,'噬\n嗑'),ALIGN0,COLORCCCCFF;{34火雷噬嗑-阳阴阴阳阴阳}
DRAWTEXT(x4 and s4,HIGH*1.04,'震'),ALIGN0,COLORCCCCFF;{44震为雷-阳阴阴阳阴阴}
DRAWTEXT(x4 and s5,HIGH*1.04,'益'),ALIGN0,COLORCCCCFF;{54风雷益-阳阴阴阴阳阳}
DRAWTEXT(x4 and s6,HIGH*1.04,'屯'),ALIGN0,COLORCCCCFF;{64水雷屯-阳阴阴阴阳阴}
DRAWTEXT(x4 and s7,HIGH*1.04,'颐'),ALIGN0,COLORCCCCFF;{74山雷颐-阳阴阴阴阴阳}
DRAWTEXT(x4 and s8,HIGH*1.04,'复'),ALIGN0,COLORCCCCFF;{84地雷复-阳阴阴阴阴阴}
//巽宫八卦，紫色系
DRAWTEXT(x5 and s1,HIGH*1.04,'姤'),ALIGN0,COLORFF00FF;{15天风姤-阴阳阳阳阳阳}
DRAWTEXT(x5 and s2,HIGH*1.08,'大\n过'),ALIGN0,COLORFF00FF;{25泽风大过-阴阳阳阳阳阴}
DRAWTEXT(x5 and s3,HIGH*1.04,'鼎'),ALIGN0,COLORFF00FF;{35火风鼎-阴阳阳阳阴阳}
DRAWTEXT(x5 and s4,HIGH*1.04,'恒'),ALIGN0,COLORFF00FF;{45雷风恒-阴阳阳阳阴阴}
DRAWTEXT(x5 and s5,HIGH*1.04,'巽'),ALIGN0,COLORFF00FF;{55巽为风-阴阳阳阴阳阳}
DRAWTEXT(x5 and s6,HIGH*1.04,'井'),ALIGN0,COLORFF00FF;{65水风井-阴阳阳阴阳阴}
DRAWTEXT(x5 and s7,HIGH*1.04,'蛊'),ALIGN0,COLORFF00FF;{75山风蛊-阴阳阳阴阴阳}
DRAWTEXT(x5 and s8,HIGH*1.04,'升'),ALIGN0,COLORFF00FF;{85地风升-阴阳阳阴阴阴}
//坎宫八卦，浅灰色系
DRAWTEXT(x6 and s1,HIGH*1.04,'讼'),ALIGN0,COLORFFEADD;{16天水讼-阴阳阴阳阳阳}
DRAWTEXT(x6 and s2,HIGH*1.04,'困'),ALIGN0,COLORFFEADD;{26泽水困-阴阳阴阳阳阴}
DRAWTEXT(x6 and s3,HIGH*1.08,'末\n济'),ALIGN0,COLORFFEADD;{36火水末济-阴阳阴阳阴阳}
DRAWTEXT(x6 and s4,HIGH*1.04,'解'),ALIGN0,COLORFFEADD;{46雷水解-阴阳阴阳阴阴}
DRAWTEXT(x6 and s5,HIGH*1.04,'涣'),ALIGN0,COLORFFEADD;{56风水涣-阴阳阴阴阳阳}
DRAWTEXT(x6 and s6,HIGH*1.04,'坎'),ALIGN0,COLORFFEADD;{66坎为水-阴阳阴阴阳阴}
DRAWTEXT(x6 and s7,HIGH*1.04,'蒙'),ALIGN0,COLORFFEADD;{76山水蒙-阴阳阴阴阴阳}
DRAWTEXT(x6 and s8,HIGH*1.04,'师'),ALIGN0,COLORFFEADD;{86地水师-阴阳阴阴阴阴}
//艮宫八卦，浅兰色系
DRAWTEXT(x7 and s1,HIGH*1.04,'遯'),ALIGN0,COLORFFFF00;{17天山遯-阴阴阳阳阳阳}
DRAWTEXT(x7 and s2,HIGH*1.04,'咸'),ALIGN0,COLORFFF300;{27泽山咸-阴阴阳阳阳阴}
DRAWTEXT(x7 and s3,HIGH*1.04,'旅'),ALIGN0,COLORFFE500;{37火山旅-阴阴阳阳阴阳}
DRAWTEXT(x7 and s4,HIGH*1.08,'小\n过'),ALIGN0,COLORFFDB00;{47雷山小过-阴阴阳阳阴阴}
DRAWTEXT(x7 and s5,HIGH*1.04,'渐'),ALIGN0,COLORFFAB00;{57风山渐-阴阴阳阴阳阳}
DRAWTEXT(x7 and s6,HIGH*1.04,'蹇'),ALIGN0,COLORFF9800;{67水山蹇-阴阴阳阴阳阴}
DRAWTEXT(x7 and s7,HIGH*1.04,'艮'),ALIGN0,COLOREE9800;{77艮为山-阴阴阳阴阴阳}
DRAWTEXT(x7 and s8,HIGH*1.04,'谦'),ALIGN0,COLORCC9800;{87地山谦-阴阴阳阴阴阴}
//坤宫八卦，浅咖啡色系
DRAWTEXT(x8 and s1,HIGH*1.04,'否'),ALIGN0,COLOR90A9C1;{18天地否-阴阴阴阳阳阳}
DRAWTEXT(x8 and s2,HIGH*1.04,'萃'),ALIGN0,COLOR90A9C1;{28泽地萃-阴阴阴阳阳阴}
DRAWTEXT(x8 and s3,HIGH*1.04,'晋'),ALIGN0,COLOR90A9C1;{38火地晋-阴阴阴阳阴阳}
DRAWTEXT(x8 and s4,HIGH*1.04,'豫'),ALIGN0,COLOR90A9C1;{48雷地豫-阴阴阴阳阴阴}
DRAWTEXT(x8 and s5,HIGH*1.04,'观'),ALIGN0,COLOR90A9C1;{58风地观-阴阴阴阴阳阳}
DRAWTEXT(x8 and s6,HIGH*1.04,'比'),ALIGN0,COLOR90A9C1;{68水地比-阴阴阴阴阳阴}
DRAWTEXT(x8 and s7,HIGH*1.04,'剥'),ALIGN0,COLOR90A9C1;{78山地剥-阴阴阴阴阴阴阳}
DRAWTEXT(x8 and s8,HIGH*1.04,'坤'),ALIGN0,COLOR90A9C1;{88坤为地-阴阴阴阴阴阴}

股上峰 · 发表于 2005-1-14 10:41

我用3.9.4.1110版本

股上峰 · 发表于 2005-1-14 10:44

感谢fract无私奉献

afafaf · 发表于 2005-1-14 10:44

谢谢!!!

koo能导进

fract · 发表于 2005-1-14 10:51

Originally posted by wjn123 at 2005-1-14 10:30
非常感谢，fract提供的公式！

wjn123兄不必客气，您的帖子和公式才是有品味的好东西。我提供的这个公式，仅仅是为了给易学初学者一点学习方便而已，而且思路也是他人的。朋友们不必言谢。

白椏萍 · 发表于 2005-1-14 10:52

編寫程式，fract 先生辛苦了！
向您學習！

難得的是先生把她無私公開，
除了交流、學習之外，也為大家提供了一個很好的思路... ...

這是原創貼，加為精華。
大家也可就此提出更多、更好的完善建議...

再次感謝 fract 先生！

pcyzf · 发表于 2005-1-14 10:54

谢谢了

股上峰 · 发表于 2005-1-14 11:01

强烈要求加分

ypyl · 发表于 2005-1-14 11:31

感謝 fract 先生！

罡风 · 发表于 2005-1-14 13:22

Originally posted by 白椏萍 at 2005-1-14 10:52
編寫程式，fract 先生辛苦了！
向您學習！

難得的是先生把她無私公開，
除了交流、學習之外，也為大家提供了一個很好的思路... ...

這是原創貼，加為精華。
大家也可就此提出更多、更好的完善建議...

...

:*9*:

洪雷 · 发表于 2005-1-14 13:31

非常感谢，fract提供的公式！

yaojun · 发表于 2005-1-14 16:50

好！！！！！！！！！

qq_fjp · 发表于 2005-1-14 17:38

我写一个好一点的公式要花去好几天时间的，难啊！
您这样无私的公开，我即便强烈感谢也不足以表达内心的谢意，我想我也要化点时间编写一个好一点的公式送给您来帮我指点一下才对！

		搜索
热搜: macd K线与均线飞狐分时指标共振指标分时橡胶牛股炒股入门