打印本文
關(guān)閉窗口
CC:=(H+L)/2;
DIRECTION:=CC-REF(CC,N1);
VOLATILITY:=SUM(ABS(CC-REF(CC,1)),N1);
ER:=ABS(DIRECTION/VOLATILITY);
FSC:=2/(2+1);
SSC:=2/(30+1);
SC:=ER*(FSC-SSC)+SSC;
SCSQ:=SC*SC;
IF BARPOS=1 THEN AMA:=CC;
REFAMA:=REF(AMA,1);
IF BARPOS>1 THEN AMA:=REFAMA+SCSQ*(CC-REFAMA);
AMAVALUE:AMA,COLORWHITE;
請(qǐng)教，上面這段代碼，為什么畫不出AMAVALUE這條白線？問(wèn)題在哪里？先謝過(guò)了！
CC:=(H+L)/2;
n1:=1;
VARIABLE:ama=0;
DIRECTION:=CC-REF(CC,N1);
VOLATILITY:=SUM(ABS(CC-REF(CC,1)),N1);
ER:=ABS(DIRECTION/VOLATILITY);
FSC:=2/(2+1);
SSC:=2/(30+1);
SC:=ER*(FSC-SSC)+SSC;
SCSQ:=SC*SC;
IF BARPOS=1 THEN AMA:=CC;
IF BARPOS>1 THEN AMA:=AMA+SCSQ*(CC-AMA);
AMAVALUE:AMA,COLORWHITE;
做了這樣的修改，就OK了，如果想要修改N1的話，按照下面思路做修改
N1是多少很關(guān)鍵，N1是1，那么就需要定義barpso=1時(shí)AMA是多少，N1是2，那么就要定義barpos=1和barpos=2時(shí)，AMA是多少，N1是3時(shí)，就要定義barpos=1，barpos=2和barpos=3時(shí)，AMA是多少，以此類推
CC:=(H+L)/2;
n1:=1;
VARIABLE:ama=0;
DIRECTION:=CC-REF(CC,N1);
VOLATILITY:=SUM(ABS(CC-REF(CC,1)),N1);
ER:=ABS(DIRECTION/VOLATILITY);
FSC:=2/(2+1);
SSC:=2/(30+1);
SC:=ER*(FSC-SSC)+SSC;
SCSQ:=SC*SC;
IF BARPOS=1 THEN AMA:=CC;
IF BARPOS>1 THEN AMA:=AMA+SCSQ*(CC-AMA);
AMAVALUE:AMA,COLORWHITE;
做了這樣的修改，就OK了，如果想要修改N1的話，按照下面思路做修改
N1是多少很關(guān)鍵，N1是1，那么就需要定義barpso=1時(shí)AMA是多少，N1是2，那么就要定義barpos=1和barpos=2時(shí)，AMA是多少，N1是3時(shí)，就要定義barpos=1，barpos=2和barpos=3時(shí)，AMA是多少，以此類推
多謝您的及時(shí)回復(fù)！也就是說(shuō)，如果修改為下面這樣，應(yīng)該就可以通用了：
VARIABLE:AMA=0;
CC:=(H+L)/2;
DIRECTION:=CC-REF(CC,N1);
VOLATILITY:=SUM(ABS(CC-REF(CC,1)),N1);
ER:=ABS(DIRECTION/VOLATILITY);
FSC:=2/(2+1);
SSC:=2/(30+1);
SC:=ER*(FSC-SSC)+SSC;
SCSQ:=SC*SC;
IF BARPOS=N1 THEN AMA:=CC;
IF BARPOS>N1 THEN AMA:=AMA+SCSQ*(CC-AMA);
AMAVALUE:AMA,COLORWHITE;
是的，如果原來(lái)的思路上最開N1個(gè)周期的AMA是這樣定義的話，那么這樣寫就是對(duì)的了
是的，如果原來(lái)的思路上最開N1個(gè)周期的AMA是這樣定義的話，那么這樣寫就是對(duì)的了
謝謝！另外再請(qǐng)教，下面的白線和紅線，畫出來(lái)不一樣，原因在哪里？
VARIABLE:AMA=0;
VARIABLE:AMA2=0;
DIRECTION:=CC-REF(CC,N1);
VOLATILITY:=SUM(ABS(CC-REF(CC,1)),N1);
ER:=ABS(DIRECTION/VOLATILITY);
FSC:=2/(2+1);
SSC:=2/(30+1);
SC:=ER*(FSC-SSC)+SSC;
SCSQ:=SC*SC;
IF BARPOS=N1 THEN AMA:=CC;
IF BARPOS=N1 THEN AMA2:=CC;
REFAMA2:=REF(AMA2,1);
IF BARPOS>N1 THEN AMA:=AMA+SCSQ*(CC-AMA);
IF BARPOS>N1 THEN AMA2:=REFAMA2+SCSQ*(CC-REFAMA2);
AMAVALUE:AMA,COLORWHITE;
AMAVALUE2:AMA2,COLORRED;