以下是通达信力度探寻副图通用源码
m5:=MA(c,5);
m10:=MA(c,10);
m25:=MA(c,25);
m60:=MA(c,60);
m90:=MA(c,90);
m120:=MA(c,120);
m240:=MA(c,240);
xl5:=ATAN((m5/ref(m5,1)-1)*100)*180/3.1416;
xl10:=ATAN((m10/ref(m10,1)-1)*100)*180/3.1416;
xl25:=ATAN((m25/ref(m25,1)-1)*100)*180/3.1416;
xl60:=ATAN((m60/ref(m60,1)-1)*100)*180/3.1416;
xl90:=ATAN((m90/ref(m90,1)-1)*100)*180/3.1416;
xl120:=ATAN((m120/ref(m120,1)-1)*100)*180/3.1416;
(xl5+2*xl10+3*XL25)/6;
(3*xl25+2*xl60+XL90)/6;
(1*xl60+2*xl90+3*XL120)/6;
0;
