股友答疑
把通达信暖气带改写成大智慧的
股友答疑 >> 把通达信暖气带改写成大智慧的 >> 【您对使用股票程序选股有兴趣？要做自己想要的选股方法？加订阅号一起探讨吧！】
编写要求：
请老师把通达信暖气带改写成大智慧的 ，谢谢！！
源码如下：
MA5:=MA(C,5);
MA10:=MA(C,10);
MA20:=MA(C,20);
MA60:=MA(C,60);
MA120:=MA(C,120);
MA240:=MA(C,240);
∠5:=57.3*(ATAN(100*(MA5/REF(MA5,1)-1)));
∠10:=57.3*(ATAN(100*(MA10/REF(MA10,1)-1)));
∠20:=57.3*(ATAN(100*(MA20/REF(MA20,1)-1)));
∠60:=57.3*(ATAN(100*(MA60/REF(MA60,1)-1)));
∠120:=57.3*(ATAN(100*(MA120/REF(MA120,1)-1)));
C1:=REF(C,1);
C2:=REF(C,2);
WS1:=MA5>MA10&&MA10>MA20&&MA20>MA60&&MA60>MA120;
WS2:=∠5>0&&∠10>0&&∠20>0&&∠60>0&&∠120>0;
WXSS:=COUNT(WS1,2)=2&&COUNT(WS2,2)=2;
WSYY:=C>MA5&&C>C1&&C>O&&WXSS&&C1
11q.cn解答：
MA5:=MA(C,5);
MA10:=MA(C,10);
MA20:=MA(C,20);
MA60:=MA(C,60);
MA120:=MA(C,120);
MA240:=MA(C,240);
∠5:=57.3*(ATAN(100*(MA5/REF(MA5,1)-1)));
∠10:=57.3*(ATAN(100*(MA10/REF(MA10,1)-1)));
∠20:=57.3*(ATAN(100*(MA20/REF(MA20,1)-1)));
∠60:=57.3*(ATAN(100*(MA60/REF(MA60,1)-1)));
∠120:=57.3*(ATAN(100*(MA120/REF(MA120,1)-1)));
C1:=REF(C,1);
C2:=REF(C,2);
WS1:=MA5>MA10 AND MA10>MA20 AND MA20>MA60 AND MA60>MA120;
WS2:=∠5>0 AND ∠10>0 AND ∠20>0 AND ∠60>0 AND ∠120>0;
WXSS:=COUNT(WS1,2)=2 AND COUNT(WS2,2)=2;
WSYY:=C>MA5 AND C>C1 AND C>O AND WXSS AND C1<MIN(REF(MA5,1),REF(MA10,1));
FILLRGN(MA60,MA120,MA60>MA120,RGB(240,180,180),MA60<=MA120,RGB(180,240,180));
STICKLINE(WSYY,CLOSE,OPEN,6,0),COLORYELLOW;
M1:MA5;
M2:MA10;
M3:MA20;
M4:MA60;
M5:MA120;
