堂主 2006-11-13 16:41
AR1:=IF(((EMA(CLOSE,5))/(EMA(EMA(CLOSE,9),16))<=0.85) AND ((CLOSE)/(REF(CLOSE,1))>0.905) AND ((CLOSE)/(REF(CLOSE,1))<1.05) AND ((VOL/CAPITAL)*(100)<5),50,0); <br />AR2:=IF((HIGH+LOW<=REF(HIGH,1)+REF(LOW,1)),0,MAX(ABS(HIGH-REF(HIGH,1)),ABS(LOW-REF(LOW,1)))); <br />AR3:=IF((HIGH+LOW>=REF(HIGH,1)+REF(LOW,1)),0,MAX(ABS(HIGH-REF(HIGH,1)),ABS(LOW-REF(LOW,1)))); <br />AR4:=(SUM(AR2,13))/(SUM(AR2,13)+SUM(AR3,13)); <br />AR5:=(SUM(AR3,13))/(SUM(AR3,13)+SUM(AR2,13)); <br />AR6:=100-(3)*(SMA(((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75)))*(100),20,1))+(2)*(SMA(SMA(((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75)))*(100),20,1),15,1)); <br />AR7:=100-(3)*(SMA(((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75)))*(100),20,1))+(2)*(SMA(SMA(((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75)))*(100),20,1),15,1)); <br />AR8:=((HHV(HIGH,21)-CLOSE)/(HHV(HIGH,21)-LLV(LOW,21)))*(100)-10; <br />AR9:=((CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21)))*(100); <br />AR10:=SMA(AR9,13,8); <br />AR11:=SMA(AR8,21,8); <br />红:SMA(AR10,13,8),COLORRED; <br />绿:MA((((-100))*(HHV(HIGH,34)-CLOSE))/(HHV(HIGH,34)-LLV(LOW,34))+100,5),COLOR00ff00; <br />缠绵:DRAWTEXT(CROSS(红,绿)AND 红<50 AND 绿>REF(绿,1) OR CROSS(红,绿)AND 红<20 AND 红>REF(红,2),25,'↑'),linethick6,COLORYELLOW; <br />悱恻:DRAWTEXT(CROSS(绿,红)AND 绿>80 ,90,'↓'),linethick6,COLORWHITE; <br />欢爱:DRAWTEXT(红-AR11<(-65)AND AR1 OR 红-AR11<(-65)AND 绿>REF(绿,1),low,'■'),COLORYELLOW; <br />
flyrat 2007-3-25 12:14
<p><img src='images/smiles/003.gif' smilietext=':003:' border='0' style='vertical-align:middle' alt=':003:' title=':003:' />
gz35t 2007-3-25 21:58
<img src='images/smiles/010.gif' smilietext=':010:' border='0' style='vertical-align:middle' alt=':010:' title=':010:' />
wssxo 2007-5-23 19:29
<p>谢谢搂主。能否改进一下，把准确的买卖点标明岂不更好？</p>