在股市中判断趋势、拐点、时间窗口，螺旋历法无处不在，要想运用的恰到好处，请先读读《螺旋历法》再使用。源码送上。
{螺旋历法}
n:=8;
A:=COUNT(C,0)=1;
B:=BARSLAST(A)/N;
正弦值:SIN(B);
STICKLINE( SIN(B)>=0.99, 0,1 ,10 , 0),colorff00ff;
STICKLINE( SIN(B)<-0.99, 0,-1 ,10 , 0),colorff00ff;
e:=COUNT(C,0)=1;
d:=BARSLAST(e)/13
;
SIN(d);
f:=COUNT(C,0)=1;
g:=BARSLAST(f)/21;
SIN(g);
0;
{n 1 999 10};
立春:=FILTER(MONTH=2 AND (DAY=3 OR DAY=5 ),2);
雨水:=FILTER(MONTH=2 AND (DAY=18 OR DAY=20),2);
惊蛰:=FILTER(MONTH=3 AND (DAY=5 OR DAY=7 ),2);
春分:=FILTER(MONTH=3 AND (DAY=20 OR DAY=22),2);
清明:=FILTER(MONTH=4 AND (DAY=4 OR DAY=6 ),2);
谷雨:=FILTER(MONTH=4 AND (DAY=19 OR DAY=21),2);
立夏:=FILTER(MONTH=5 AND (DAY=6 OR DAY=8 ),2);
小满:=FILTER(MONTH=5 AND (DAY=20 OR DAY=22),2);
芒种:=FILTER(MONTH=6 AND (DAY=5 OR DAY=7 ),2);
夏至:=FILTER(MONTH=6 AND (DAY=20 OR DAY=22),2);
小暑:=FILTER(MONTH=7 AND (DAY=6 OR DAY=8 ),2);
大署:=FILTER(MONTH=7 AND (DAY=22 OR DAY=24),2);
立秋:=FILTER(MONTH=8 AND (DAY=7 OR DAY=9 ),2);
处暑:=FILTER(MONTH=8 AND (DAY=22 OR DAY=24),2);
白露:=FILTER(MONTH=9 AND (DAY=7 OR DAY=9 ),2);
秋分:=FILTER(MONTH=9 AND (DAY=22 OR DAY=24),2);
寒露:=FILTER(MONTH=10 AND (DAY=7 OR DAY=9 ),2);
霜降:=FILTER(MONTH=10 AND (DAY=22 OR DAY=24),2);
立冬:=FILTER(MONTH=11 AND (DAY=7 OR DAY=9 ),2);
小雪:=FILTER(MONTH=11 AND (DAY=22 OR DAY=24),2);
大雪:=FILTER(MONTH=12 AND (DAY=6 OR DAY=8 ),2);
冬至:=FILTER(MONTH=12 AND (DAY=21 OR DAY=23),2);
小寒:=FILTER(MONTH=1 AND (DAY=5 OR DAY=7 ),2);
大寒:=FILTER(MONTH=1 AND (DAY=19 OR DAY=22 ),2);
VARa2:=DRAWTEXT(雨水,0.5,'雨 水');
VARa3:=DRAWTEXT(惊蛰,-0.5,'惊 蛰');
VARa4:=DRAWTEXT(春分,0.5,'春 分');
VARa5:=DRAWTEXT(清明,-0.5,'清 明');
VARa6:=DRAWTEXT(谷雨,0.5,'谷 雨');
VARa8:=DRAWTEXT(小满,-0.5,'小 满');
VARa9:=DRAWTEXT(芒种,0.5,'芒 种');
VARa10:=DRAWTEXT(夏至,-0.5,'夏 至');
VARa11:=DRAWTEXT(小暑,0.5,'小 暑');
VARa12:=DRAWTEXT(大署,-0.5,'大 署');
VARa14:=DRAWTEXT(处暑,0.5,'处 暑');
VARa15:=DRAWTEXT(白露,-0.5,'白 露');
VARa16:=DRAWTEXT(秋分,0.5,'秋 分');
VARa17:=DRAWTEXT(寒露,-0.5,'寒 露');
VARa18:=DRAWTEXT(霜降,0.5,'霜 降');
VARa20:=DRAWTEXT(小雪,-0.5,'小 雪');
VARa21:=DRAWTEXT(大雪,0.5,'大 雪');
VARa22:=DRAWTEXT(冬至,-0.5,'冬 至');
VARa23:=DRAWTEXT(小寒,0.5,'小 寒');
VARa24:=DRAWTEXT(大寒,-0.5,'大 寒');
VARa2,coloryellow,linethick2;
VARa3,coloryellow,linethick2;
VARa4,coloryellow,linethick2;
VARa5,coloryellow,linethick2;
VARa6,coloryellow,linethick2;
VARa8,coloryellow,linethick2;
VARa9,coloryellow,linethick2;
VARa10,coloryellow,linethick2;
VARa11,coloryellow,linethick2;
VARa12,coloryellow,linethick2;
VARa14,coloryellow,linethick2;
VARa15,coloryellow,linethick2;
VARa16,coloryellow,linethick2;
VARa17,coloryellow,linethick2;
VARa18,coloryellow,linethick2;
VARa20,coloryellow,linethick2;
VARa21,coloryellow,linethick2;
VARa22,coloryellow,linethick2;
VARa23,coloryellow,linethick2;
VARa24,coloryellow,linethick2;
STICKLINE(雨水 ,0 ,0.5 ,1 , 0),colorred;
STICKLINE(惊蛰 ,0 ,-0.5 ,1 , 0),colorred;
STICKLINE(春分 ,0 ,0.5 ,1 , 0),colorred;
STICKLINE(清明 ,0 ,-0.5 ,1 , 0),colorred;
STICKLINE(谷雨 ,0 ,0.5 ,1 , 0),colorred;
STICKLINE(小满 ,0 ,-0.5 ,1 , 0),colorred;
STICKLINE(芒种 ,0 ,0.5 ,1 , 0),colorred;
STICKLINE(夏至 ,0 ,-0.5 ,1 , 0),colorred;
STICKLINE(小暑 ,0 ,0.5 ,1 , 0),colorred;
STICKLINE(大署 ,0 ,-0.5 ,1 , 0),colorred;
STICKLINE(处暑 ,0 ,0.5 ,1 , 0),colorred;
STICKLINE(白露 ,0 ,-0.5 ,1 , 0),colorred;
STICKLINE(秋分 ,0 ,0.5 ,1 , 0),colorred;
STICKLINE(寒露 ,0 ,-0.5 ,1 , 0),colorred;
STICKLINE(霜降 ,0 ,0.5 ,1 , 0),colorred;
STICKLINE(小雪 ,0 ,-0.5 ,1 , 0),colorred;
STICKLINE(大雪 ,0 ,0.5 ,1 , 0),colorred;
STICKLINE(冬至 ,0 ,-0.5 ,1 , 0),colorred;
STICKLINE(小寒 ,0 ,0.5 ,1 , 0),colorred;
STICKLINE(大寒 ,0 ,-0.5 ,1 , 0),colorred;
DRAWTEXT(立春,0,'●立春'),COLORyellow;
DRAWTEXT(立夏,0,'●立夏'),COLOR0000FF;
DRAWTEXT(立秋,0,'●立秋'),COLOR00FFFF;
DRAWTEXT(立冬,0,'●立冬'),COLOR0000FF;
|
