|
以下是通达信秘密买点副图源码（无源码的请下载附件导入）
VARAA:=AMOUNT/(100*VOL);
CYC13:=MA(VARAA,13);
CYC34:=MA(VARAA,34);
CYCMAX:=DMA(C,VOL/CAPITAL);
CYS13:=(C-CYC13)/CYC13*100;
CYS34:=(C-CYC34)/CYC34*100;
CYSMAX:=(C-CYCMAX)/CYCMAX*100;
{亏损程度:
IF(CYS13<=-7,12,0),COLORWHITE,STICK,LINETHICK3;
IF(CYS13<=-10,12,0),COLORFFFF33,STICK,LINETHICK3;
IF(CYS13<=-16,12,0),COLORBLUE,STICK,LINETHICK3;
IF(CYS13<=-20,12,0),COLOR00FF77,STICK,LINETHICK3;
IF(CYS13<=-25,12,0),COLORYELLOW,STICK,LINETHICK3;
IF(CYS13<=-30,12,0),COLORFF00FF,STICK,LINETHICK3;}
VAR0:=IF(DATE<=1260330,1,0);
VAR1:=COST(10)*0;
VAR2:=REF(HIGH,1)*1.1;
VAR3:=HIGH*1.1;
VAR4:=(VAR3*VOL+VAR2*(CAPITAL-VOL))/CAPITAL;
VAR5:=REF(LOW,1)*0.9;
VAR6:=LOW*0.9;
VAR7:=(VAR6*VOL+VAR5*(CAPITAL-VOL))/CAPITAL;
VAR8:=EMA(VAR7,30);
VAR9:=EMA(VAR4,30);
VARA:=VAR9-2;
VARB:=IF(CLOSE<=VAR8,VARA,VAR9);
超跌:=VARB*2.5,COLORYELLOW;
TAO:=100*(1-WINNER(C));
A:=1.1*C;
B:=0.9*C;
ASR:=100*(WINNER(A)-WINNER(B));
70399629.jpg
| 
