大智慧灵活画线法

一般见到的画线方法都是死的而不活,不方便分析总结历史情况,
最近突发奇想,做一个可以分析任意区间的画线方法


INPUT:KN(102,1,9999,1),加N(64,0,9999);
KK:=BACKSET( HHVALL(BARPOS )=BARPOS,KN+加N );
KK2:=BACKSET( HHVALL(BARPOS )=BARPOS,加N );
KT:=BARSLAST( CROSS(KK,1));
HH:=HHVALL(HHV(H*(KK-KK2),KT));
LL:=LLVALL(IF(KK-KK2,L,999999));

中线:=(HH-LL)/2+LL;
X618:=(HH-LL)*0.618+LL;
X382:=(HH-LL)*0.382+LL;
PARTLINE(中线,KK ),COLORFFAA00,LAYER0,DASHLINE;
PARTLINE(x618,KK ),COLOR00FF00,LAYER0,DASHLINE;
PARTLINE(x382,KK ),COLORFF00FF,LAYER0,DASHLINE;
PARTLINE(HH,KK),COLOR00FF00,LAYER0,DASHLINE;
PARTLINE(LL,KK),COLORFF00FF,LAYER0,DASHLINE;
FILLRGN(HH,LL,KK-KK2 ),COLOR333333,LAYER7;

AA:=O;
BB:=KK-KK2;
STICKLINE(C>=AA AND BB,O,C,8,0),COLOR000055;
STICKLINE(C>=AA AND BB,O,C,6.5,0),COLOR000077;
STICKLINE(C>=AA AND BB,O,C,5,0),COLOR000099;
STICKLINE(C>=AA AND BB,O,C,3.5,0),COLOR0000BB;
STICKLINE(C>=AA AND BB,O,C,2.2,0),COLOR0000DD;
STICKLINE(C>=AA AND BB,O,C,1.1,0),COLOR0000FF;
STICKLINE(C>=AA AND BB,L,H,0.2,0),COLOR0022FF;

STICKLINE(C<AA BB,O,C,8,0),COLOR005500;
STICKLINE(C<AA AND BB,O,C,6.5,0),COLOR007700;
STICKLINE(C<AA AND BB,O,C,5,0),COLOR009900;
STICKLINE(C<AA AND BB,O,C,3.5,0),COLOR00BB00;
STICKLINE(C<AA AND BB,O,C,2.2,0),COLOR00DD00;
STICKLINE(C<AA AND BB,O,C,1.1,0),COLOR00FF00;
STICKLINE(C<AA AND BB,L,H,0.2,0),COLOR22FF00;

DRAWTEXT( KT=0,中线,'0.500'),COLORFFFFAA,ALIGN2;
DRAWTEXT( KT=0,X618,'0.618'),COLORFFFFAA,ALIGN2;
DRAWTEXT( KT=0,X382,'0.382'),COLORFFFFAA,ALIGN2;