改成文华指标 (文华财经)

投资者咨询：改成文华指标 (文华财经)

AVPRICE:=(((2)*(OPEN) + (2)*(CLOSE) + (2)*(HIGH) + (2)*(LOW))/(8));
INDEXAVP:=(((2)*(INDEXH) + (2)*(INDEXL) + (2)*(INDEXO) + (2)*(INDEXC))/(8));
F:=(AVPRICE - REF(AVPRICE,1))/(REF(AVPRICE,1));
F1:=(INDEXAVP - REF(INDEXAVP,1))/(REF(INDEXAVP,1));
类比参数3:=(((SUM(F,21) + SUM(F1,21))/(21))*(1000));
类比大盘参数:=IF((类比参数3 > 0),类比参数3,0);
类比参数2:=IF((类比参数3 < 0),(-类比参数3),0);
STICKLINE(类比参数2,150,150 - 类比参数2,11,0),Color008000;
STICKLINE(类比大盘参数,150,150 - 类比大盘参数,11,0),ColorFF00FF;
AA:=AVPRICE;
BB:=((VOL)*((AA)*(2) - HIGH - LOW))/(HIGH - LOW);
CC:=IF((HIGH = LOW) and (AA < REF(AA,1)),((-1))*(VOL),VOL);
A:=IF((HIGH = LOW),CC,BB);
B:=SUM(A,11);
BBD:=(((B)/((CAPITAL)*(11)))*(10000));
BB1:=IF((BBD < 150) and (BBD > (-150)),BBD,150);
买方能量指标:=IF((BB1 > 0),BB1,0);
STICKLINE((BB1 > 0),0,买方能量指标,5,0),coloryellow;
STICKLINE((BB1 < 0),0,(-BB1),5,0),Color008000;
A16:=(SUM((AVPRICE)*(VOL),16))/(SUM(VOL,16));
A11:=(SUM((AVPRICE)*(VOL),11))/(SUM(VOL,11));
A6:=(SUM((AVPRICE)*(VOL),6))/(SUM(VOL,6));
A7:=(SUM((AVPRICE)*(VOL),7) - (AVPRICE)*(VOL))/(SUM(VOL,7) - VOL);
A0:=((A11 - A16)/(AVPRICE))*(1000);
A00:=IF((A0 > 50),50,IF((A0 < (-50)),(-50),A0));
A1:=((A6 - A11)/(AVPRICE))*(1000);
AA11:=IF((A1 > 50),50,IF((A1 < (-50)),(-50),A1));
A2:=((((A6 - A7)/(A7))*(5))/(4))*(1000);
A22:=IF((A2 > 50),50,IF((A2 < (-50)),(-50),A2));
刻度线3:=(A00 + AA11 + A22),;
趋势线:=IF((刻度线3 > 0),刻度线3,0);
兰刻度线:IF((刻度线3 < 0),刻度线3,0),LINETHICK2;
红柱线:趋势线,LINETHICK2,ColorFFFF00;
兰柱线:-兰刻度线,LINETHICK2,colorred;
STICKLINE(趋势线,0,趋势线,2,1),colorred;
STICKLINE(兰刻度线,0,兰刻度线,2,1),COLORGREEN;
jqd:=LSOLARTERMDAY(DATE);
fd:=DATE;
tj:=(jqd-REF(jqd,1)<>DATEDIFF(REF(fd,1),fd))*((MONTH)*2-(jqd>DAY)-(DAY<=16));
DRAWTEXT(tj=1 ,100,'小寒'),COLORYELLOW;
DRAWTEXT(tj=2 ,100,'大寒'),COLORYELLOW;
DRAWTEXT(tj=3 ,100,'立春'),COLORGREEN;
DRAWTEXT(tj=4 ,100,'雨水'),COLORGREEN;
DRAWTEXT(tj=5 ,100,'惊蛰'),COLORGREEN;
DRAWTEXT(tj=6 ,100,'春分'),COLORGREEN;
DRAWTEXT(tj=7 ,100,'清明'),COLORYELLOW;
DRAWTEXT(tj=8 ,100,'谷雨'),COLORYELLOW;
DRAWTEXT(tj=9 ,100,'立夏'),COLORRED;
DRAWTEXT(tj=10,100,'小满'),COLORRED;
DRAWTEXT(tj=11,100,'芒种'),COLOR

技术人员回复

 农历部分取不到的，参考：