文章
文章用户商铺文档快讯有问必答话题

请老师把黄金分割改成文华版 (文华财经WH6赢顺V6.7)

投资者咨询：请老师把黄金分割改成文华版 (文华财经WH6赢顺V6.7)
来源:文华财经  日期:2018-6-10 15:49
 HH:=CONST(HHV(C,0));
LL:=CONST(LLV(C,0));
HL:=HH-LL;
顶:HH,COLORCYAN,LINETHICK1;               
A809:0.809*HL+LL,COLORFFFF0B,DOTLINE;
A618:0.618*HL+LL,COLORLIMAGENTA,DOTLINE;
A500:0.500*HL+LL,COLOR000999,DOTLINE;
A382:0.382*HL+LL,COLORLIMAGENTA,DOTLINE; 
A191:0.191*HL+LL,COLOR00FF00,DOTLINE;
底:LL,COLOR00FF00,LINETHICK1;  
DRAWICON(C=LL,LL,9);
DRAWTEXT(CURRBARSCOUNT=240,HH,'顶'),COLORCYAN;         
DRAWTEXT(CURRBARSCOUNT=240,A809,鮁'),COLORFFFF0B;
DRAWTEXT(CURRBARSCOUNT=240,A618,髂'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=240,A500,驌'),COLOR80FFFF;
DRAWTEXT(CURRBARSCOUNT=240,A382,駖'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=240,A191,餗'),COLOR60FF60;
DRAWTEXT(CURRBARSCOUNT=240,LL,'底'),COLOR60FF60;
DRAWTEXT(CURRBARSCOUNT=1,HH,'顶危'),COLORCYAN;         
DRAWTEXT(CURRBARSCOUNT=1,A809,鮁'),COLORFFFF0B;
DRAWTEXT(CURRBARSCOUNT=1,A618,髂'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,A618,髂'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,A500,驌'),COLOR000999;
DRAWTEXT(CURRBARSCOUNT=1,A382,駖'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,A191,餗'),COLOR60FF60;
DRAWTEXT(CURRBARSCOUNT=1,LL,'底安'),COLOR60FF60;

技术人员回复
日期:2018-6-10 16:59

 参考：

 

 

HH:VALUEWHEN(ISLASTBAR,H);
LL:VALUEWHEN(ISLASTBAR,H);
HL:=HH-LL;
顶:HH,COLORCYAN,LINETHICK1;
A809:0.809*HL+LL,COLORFFFF0B,CIRCLEDOT;
A618:0.618*HL+LL,COLORLIGHTGREY,CIRCLEDOT;
A500:0.500*HL+LL,COLOR80FFFF,CIRCLEDOT;
A382:0.382*HL+LL,COLORLIGHTGREY,CIRCLEDOT;
A191:0.191*HL+LL,COLOR00FF00,CIRCLEDOT;
底:LL,COLOR00FF00,LINETHICK1;
DRAWICON(C=LL,LL,9);
DRAWTEXT(DAYSTOEXPIRED(' ')=240,HH,'顶'),COLORCYAN;
DRAWTEXT(DAYSTOEXPIRED(' ')=240,A809,'�'),COLORFFFF0B;
DRAWTEXT(DAYSTOEXPIRED(' ')=240,A618,'髂'),COLORWHITE;
DRAWTEXT(DAYSTOEXPIRED(' ')=240,A500,'�'),COLOR80FFFF;
DRAWTEXT(DAYSTOEXPIRED(' ')=240,A382,'�'),COLORWHITE;
DRAWTEXT(DAYSTOEXPIRED(' ')=240,A191,'�'),COLOR60FF60;
DRAWTEXT(DAYSTOEXPIRED(' ')=240,LL,'底'),COLOR60FF60;
DRAWTEXT(DAYSTOEXPIRED(' ')=1,HH,'顶危'),COLORCYAN;
DRAWTEXT(DAYSTOEXPIRED(' ')=1,A809,'�'),COLORFFFF0B;
DRAWTEXT(DAYSTOEXPIRED(' ')=1,A618,'髂'),COLORWHITE;
DRAWTEXT(DAYSTOEXPIRED(' ')=1,A500,'�'),COLOR80FFFF;
DRAWTEXT(DAYSTOEXPIRED(' ')=1,A382,'�'),COLORWHITE;
DRAWTEXT(DAYSTOEXPIRED(' ')=1,A191,'�'),COLOR60FF60;
DRAWTEXT(DAYSTOEXPIRED(' ')=1,LL,'底安'),COLOR60FF60; 

 
投资者咨询：请老师把黄金分割改成文华版 (文华财经WH6赢顺V6.7)
来源:文华财经  日期:2018-6-10 15:49
 提示 HH   LL  重复
技术人员回复
日期:2018-6-11 14:41
 您用这个试试，不用修改任何源码

HH:REFX1(HHV(H,0),100000);
LL:REFX1(LLV(L,0),100000);
HL:=HH-LL;
顶:HH,COLORCYAN,LINETHICK1; 
A809:0.809*HL+LL,COLORFFFF0B,CIRCLEDOT;
A618:0.618*HL+LL,COLORLIGHTGREY,CIRCLEDOT;
A500:0.500*HL+LL,COLOR80FFFF,CIRCLEDOT;
A382:0.382*HL+LL,COLORLIGHTGREY,CIRCLEDOT; 
A191:0.191*HL+LL,COLOR00FF00,CIRCLEDOT;
底:LL,COLOR00FF00,LINETHICK1; 
DRAWICON(C=LL,LL,9);
CURRBARSCOUNT:=DATACOUNT-BARPOS+1;
DRAWTEXT(CURRBARSCOUNT=240,HH,'顶'),COLORCYAN; 
DRAWTEXT(CURRBARSCOUNT=240,A809,'�'),COLORFFFF0B;
DRAWTEXT(CURRBARSCOUNT=240,A618,'髂'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=240,A500,'�'),COLOR80FFFF;
DRAWTEXT(CURRBARSCOUNT=240,A382,'�'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=240,A191,'�'),COLOR60FF60;
DRAWTEXT(CURRBARSCOUNT=240,LL,'底'),COLOR60FF60;
DRAWTEXT(CURRBARSCOUNT=1,HH,'顶危'),COLORCYAN; 
DRAWTEXT(CURRBARSCOUNT=1,A809,'�'),COLORFFFF0B;
DRAWTEXT(CURRBARSCOUNT=1,A618,'髂'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,A500,'�'),COLOR80FFFF;
DRAWTEXT(CURRBARSCOUNT=1,A382,'�'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,A191,'�'),COLOR60FF60;
DRAWTEXT(CURRBARSCOUNT=1,LL,'底安'),COLOR60FF60;