◥◣二十四节K线 & 二十四节气量◢◤

[飞 狐] 15008 12
设置
196198 Lv.3

专栏

发表于 2009-11-22 18:06 复制 显示全部楼层 正序浏览 |
跳转到指定楼层
◥◣二十四节K线 & 二十四节气量◢◤
世上万物是以节气变化而变的 。有朋友对这有兴趣可说说自己的高见 §83§ §83§  
//二十四节K线
TBS:=POW(10,ABS(LOG(MINDIFF)));
jqd:=LSOLARTERMday(date);
fd:=date;
tj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));
Jw:BARSLAST(tj),LINETHICK;
Jdg:=Jw=0 or ISLASTBAR;
Jwx:=0*C;
for JQ=datacount-1 downto lbound(Jdg) do
if Jdg[JQ] then
Jwx[JQ]:=0;
else
Jwx[JQ]:=Jwx[JQ+1]+1;
Jr:=BACKSET(ISLASTBAR,Jw+1)-ISLASTBAR;
Jwx:=refx(Jwx,1)+Jr,LINETHICK;
Joo:=ref(o,Jw);
Jhh:=hhv(h,Jw+1);
JLL:=LLv(L,Jw+1);
Jzq1:=BARSLAST(ref(Jwx,1)=0 or BARPOS=1)+1;//N天数
Jyt1:=if(Jzq1=1 and refx(Jzq1,2)=1,13,if(refx(Jzq1,1)=1 or Jzq1=1,7,14));
节开:ROUND(JOO*TBS)/TBS,LINETHICK,COLOReeee00;
节高:ROUND(refx(Jhh,Jwx)*TBS)/TBS,LINETHICK,COLOReeaaFF;
节低:ROUND(refx(JLL,Jwx)*TBS)/TBS,LINETHICK,COLOR00ee00;
节收:ROUND(refx(c,Jwx)*TBS)/TBS,LINETHICK,COLOR00eeee;
Jf:=节收>节开 or (节收=节开 and 节收>ref(节收,JW));
Jj:=cross(Jw,Jwx);
STICKLINE(Jw>0 and JF and Jj ,节低,节高,10,0),Color5055B1;
STICKLINE(节开<节收 ,节开,节收,JYT1,0),Color5055B1;
STICKLINE(Jw>0 and not(JF) and Jj ,节低,节高,10,0),Color5A7234;
STICKLINE(节开>节收 ,节开,节收,JYT1,0),Color5A7234;
STICKLINE(C>=O,C,O,8,0),COLOR0000AA;
STICKLINE(C>=O,C,O,6,0),COLOR0000bb ;
STICKLINE(C>=O,C,O,4,0),COLOR0000cc ;
STICKLINE(C>=O,C,O,2,0),COLOR0000ee;
STICKLINE(C>=O,H,L,0,0),COLOR0000ff;
STICKLINE(C<=O,C,O,8,0),Color7B7b00;
STICKLINE(C<=O,C,O,6,0),Color909000;
STICKLINE(C<=O,C,O,4,0),ColorA8a800;
STICKLINE(C<=O,C,O,2,0),COLORcece00;
STICKLINE(C<=O,H,L,0,0),COLORffff00;
drawtext(tj=1 ,l,'小寒'),COLORYELLOW,align0,PXDN5;
drawtext(tj=2 ,L,'大寒'),COLORYELLOW,align0,PXDN5;
drawtext(tj=3 ,L,'立春'),COLORGREEN,align0,PXDN5;
drawtext(tj=4 ,L,'雨水'),COLORGREEN,align0,PXDN5;
drawtext(tj=5 ,L,'惊蛰'),COLORGREEN,align0,PXDN5;
drawtext(tj=6 ,L,'春分'),COLORGREEN,align0,PXDN5;
drawtext(tj=7 ,L,'清明'),COLORYELLOW,align0,PXDN5;
drawtext(tj=8 ,L,'谷雨'),COLORYELLOW,align0,PXDN5;
drawtext(tj=9 ,L,'立夏'),COLORRED,align0,PXDN5;
drawtext(tj=10,L,'小满'),COLORRED,align0,PXDN5;
drawtext(tj=11,L,'芒种'),COLORRED,align0,PXDN5;
drawtext(tj=12,L,'夏至'),COLORRED,align0,PXDN5;
drawtext(tj=13,L,'小暑'),COLORYELLOW,align0,PXDN5;
drawtext(tj=14,L,'大暑'),COLORYELLOW,align0,PXDN5;
drawtext(tj=15,L,'立秋'),COLORBBBBBB,align0,PXDN5;
drawtext(tj=16,L,'处暑'),COLORBBBBBB,align0,PXDN5;
drawtext(tj=17,L,'白露'),COLORBBBBBB,align0,PXDN5;
drawtext(tj=18,L,'秋分'),COLORBBBBBB,align0,PXDN5;
drawtext(tj=19,L,'寒露'),COLORYELLOW,align0,PXDN5;
drawtext(tj=20,L,'霜降'),COLORYELLOW,align0,PXDN5;
drawtext(tj=21,L,'立冬'),COLORFF9900,align0,PXDN5;
drawtext(tj=22,L,'小雪'),COLORFF9900,align0,PXDN5;
drawtext(tj=23,L,'大雪'),COLORFF9900,align0,PXDN5;
drawtext(tj=24,L,'冬至'),COLORFF9900,align0,PXDN5;
drawtext(tj=1 ,H,'丑月'),COLORYELLOW,align0,PXUP19;
drawtext(tj=3 ,H,'寅月'),COLORGREEN,align0,PXUP19;
drawtext(tj=5 ,H,'卯月'),COLORGREEN,align0,PXUP19;
drawtext(tj=7 ,H,'辰月'),COLORYELLOW,align0,PXUP19;
drawtext(tj=9 ,H,'巳月'),COLORRED,align0,PXUP19;
drawtext(tj=11,H,'午月'),COLORRED,align0,PXUP19;
drawtext(tj=13,H,'未月'),COLORYELLOW,align0,PXUP19;
drawtext(tj=15,H,'申月'),COLORBBBBBB,align0,PXUP19;
drawtext(tj=17,H,'酉月'),COLORBBBBBB,align0,PXUP19;
drawtext(tj=19,H,'戌月'),COLORYELLOW,align0,PXUP19;
drawtext(tj=21,H,'亥月'),COLORFF9900,align0,PXUP19;
drawtext(tj=23,H,'子月'),COLORFF9900,align0,PXUP19;

//二十四节气量
TBS:=POW(10,ABS(LOG(MINDIFF)));
jqd:=LSOLARTERMday(date);
fd:=date;
tj:=(jqd-ref(jqd,1)<>DATEDIFF(ref(fd,1),fd))*((month)*2-(jqd>day)-(day<=16));
Jw:BARSLAST(tj),LINETHICK;
Jdg:=Jw=0 or ISLASTBAR;
Jwx:=0*C;
for JQ=datacount-1 downto lbound(Jdg) do
if Jdg[JQ] then
Jwx[JQ]:=0;
else
Jwx[JQ]:=Jwx[JQ+1]+1;
Jr:=BACKSET(ISLASTBAR,Jw+1)-ISLASTBAR;
Jwx:=refx(Jwx,1)+Jr,LINETHICK;
Joo:=ref(o,Jw);
Jzq1:=BARSLAST(ref(Jwx,1)=0 or BARPOS=1)+1;
Jyt1:=if(Jzq1=1 and refx(Jzq1,2)=1,13,if(refx(Jzq1,1)=1 or Jzq1=1,7,14));
节开:=ROUND(JOO*TBS)/TBS;
节收:=ROUND(refx(c,Jwx)*TBS)/TBS;
Jf:=节收>节开 or (节收=节开 and 节收>ref(节收,JW));
节量:SUM(V,Jzq1),ColorFFff00,LINETHICK0;
节换手率:SUM(vol/CAPITAL*100,Jzq1),linethick0,PRECISion2,colorffff00;
STICKLINE(节开<节收 ,节量*0.30,0,JYT1,0),Color5055B1;
STICKLINE(节开>节收 ,节量*0.30,0,JYT1,0),Color5A7234;
日量:VOL,VOLSTICK,ColorFFff00;
日换手率:vol/CAPITAL*100,ColorFFff00,LINETHICK0;
TT2:=ISLASTBAR=1;
DRAWTEXTEX(TT2,0,4,1,'【节期周期:
'+NUMTOSTR(Jzq1[SYSPARAM(1)],0)+''+'天 】'+''),Color00FFFF;
DRAWTEXTEX(TT2,0,4,16,'【节期量:
'+NUMTOSTR(节量[SYSPARAM(1)],0)+''+'】'+''),Color00FFFF;
MA3:MA(日量,5),COLORFFffff,linethick1;
MAd:MA(日量,13),COLOR00ffff,linethick1;
MA90:MA(日量,90),color00ff00;
DRAWTEXT(ISLASTBAR=1 AND MAd>REF(MAd,1),MAd,' '+' ↑'),COLOR00ffff,align0;
DRAWTEXT(ISLASTBAR=1 AND MAd<REF(MAd,1),MAd,' '+' ↑'),Color00ffff,align0;
DRAWTEXT(BARSTATUS=2 AND MA3>REF(MA3,1),MA3,' '+' ↑'),COLORFFffff,align1;
DRAWTEXT(BARSTATUS=2 AND MA3<REF(MA3,1),MA3,'
'+' ↓'),ColorFFffff,align1;

附件

24节.GIF
来自 黑龙江省哈尔滨市

举报

使用道具 扔鸡蛋 回复

2727076
Lv.2

专栏

发表于 2013-6-26 13:14 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 广东省肇庆市

举报

使用道具 点亮 支持 扔鸡蛋 回复

1336716
Lv.3

专栏

发表于 2012-1-25 15:36 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 上海市

举报

使用道具 支持 扔鸡蛋 回复

1177634
Lv.2

专栏

发表于 2011-5-31 22:53 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 山东省济南市

举报

使用道具 支持 扔鸡蛋 回复

1882807
Lv.2

专栏

发表于 2009-12-14 10:59 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 内蒙古呼和浩特市

举报

使用道具 支持 扔鸡蛋 回复

1882807
Lv.2

专栏

发表于 2009-12-14 09:06 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 内蒙古呼和浩特市

举报

使用道具 点亮 支持 扔鸡蛋 回复

1614582
Lv.2

专栏

发表于 2009-11-23 18:49 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 黑龙江省齐齐哈尔市

举报

使用道具 支持 扔鸡蛋 回复

1894838
Lv.4

专栏

发表于 2009-11-23 16:48 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 广东省深圳市

举报

使用道具 支持 扔鸡蛋 回复

1465072
Lv.4

专栏

发表于 2009-11-23 11:47 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 辽宁省沈阳市

举报

使用道具 支持 扔鸡蛋 回复

1682961
Lv.5

专栏

发表于 2009-11-23 09:00 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 江苏省扬州市

举报

使用道具 支持 扔鸡蛋 回复

1494152
Lv.3

专栏

发表于 2009-11-22 20:28 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 天津市

举报

使用道具 支持 扔鸡蛋 回复

883708
Lv.4

专栏

发表于 2009-11-22 19:40 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 广西南宁市

举报

使用道具 支持 扔鸡蛋 回复

1674092
Lv.2

专栏

发表于 2009-11-22 18:49 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 广西南宁市

举报

使用道具 支持 扔鸡蛋 回复

您需要登录后才可以回帖 登录

本版积分规则 《理想财富服务协议》《免责声明》

0楼
12楼
11楼
10楼
9楼
8楼
7楼
6楼
5楼
4楼
3楼
2楼
楼主
站长推荐 /8
回顶部 到页底
快速回复 返回顶部 返回列表