|
回覆: 回覆: 回覆: 補充說明
引用:
最初由 denile56588 發表
是的
已處理好核心部份
二的部分, 就讓您自己去完成了
WKD 公式請到此下載
http://www.chiefox.com.tw/bbs/showt...&threadid=11317
處理範例如下:
日K:"KD.K"(9,3,3) linethick;
日D:"KD.D"(9,3,3) linethick;
週K:"WKD.WK"(9,3,3,1,3,0) linethick;
週D:"WKD.WD"(9,3,3,1,3,0) linethick;
月K:"WKD.WK"(9,3,3,1,4,0) linethick;
月D:"WKD.WD"(9,3,3,1,4,0) linethick;
季K:"WKD.WK"(9,3,3,1,5,0) linethick;
季D:"WKD.WD"(9,3,3,1,5,0) linethick;
PP:=datacount;
日UD:=SGN(日K-日D)+1;
日TB:=SGN((sum(日K>80,3)=3)-(sum(日K<20,3)=3))+1;
日UD:=日UD[PP];
日TB:=日TB[PP];
日UDS:=STRMID('↓ ↑',日UD*2+1,2);
日TBS:=STRMID('▼ ▲',日TB*2+1,2);
週UD:=SGN(週K-週D)+1;
週TB:=SGN((sum(週K>80,3)=3)-(sum(週K<20,3)=3))+1;
週UD:=週UD[PP];
週TB:=週TB[PP];
週UDS:=STRMID('↓ ↑',週UD*2+1,2);
週TBS:=STRMID('▼ ▲',週TB*2+1,2);
月UD:=SGN(月K-月D)+1;
月TB:=SGN((sum(月K>80,3)=3)-(sum(月K<20,3)=3))+1;
月UD:=月UD[PP];
月TB:=月TB[PP];
月UDS:=STRMID('↓ ↑',月UD*2+1,2);
月TBS:=STRMID('▼ ▲',月TB*2+1,2);
季UD:=SGN(季K-季D)+1;
季TB:=SGN((sum(季K>80,3)=3)-(sum(季K<20,3)=3))+1;
季UD:=季UD[PP];
季TB:=季TB[PP];
季UDS:=STRMID('↓ ↑',季UD*2+1,2);
季TBS:=STRMID('▼ ▲',季TB*2+1,2);
DRAWTEXTEX(1,0,5,2,'日： 週： 月： 季： ') COLORRED;
DRAWTEXTEX(日UD=0,0,5,2,' '+日UDS) COLORGREEN;
DRAWTEXTEX(日TB=0,0,5,2,' '+日TBS) COLORGREEN;
DRAWTEXTEX(日UD=2,0,5,2,' '+日UDS) COLORWHITE;
DRAWTEXTEX(日TB=2,0,5,2,' '+日TBS) COLORWHITE;
SpaceS:=' ';
DRAWTEXTEX(週UD=0,0,5,2,SpaceS+' '+週UDS) COLORGREEN;
DRAWTEXTEX(週TB=0,0,5,2,SpaceS+' '+週TBS) COLORGREEN;
DRAWTEXTEX(週UD=2,0,5,2,SpaceS+' '+週UDS) COLORWHITE;
DRAWTEXTEX(週TB=2,0,5,2,SpaceS+' '+週TBS) COLORWHITE;
SpaceS2:=SpaceS+SpaceS;
DRAWTEXTEX(月UD=0,0,5,2,SpaceS2+' '+月UDS) COLORGREEN;
DRAWTEXTEX(月TB=0,0,5,2,SpaceS2+' '+月TBS) COLORGREEN;
DRAWTEXTEX(月UD=2,0,5,2,SpaceS2+' '+月UDS) COLORWHITE;
DRAWTEXTEX(月TB=2,0,5,2,SpaceS2+' '+月TBS) COLORWHITE;
SpaceS3:=SpaceS2+SpaceS;
DRAWTEXTEX(季UD=0,0,5,2,SpaceS3+' '+季UDS) COLORGREEN;
DRAWTEXTEX(季TB=0,0,5,2,SpaceS3+' '+季TBS) COLORGREEN;
DRAWTEXTEX(季UD=2,0,5,2,SpaceS3+' '+季UDS) COLORWHITE;
DRAWTEXTEX(季TB=2,0,5,2,SpaceS3+' '+季TBS) COLORWHITE;
|
2013-08-07 13:48
