這是我寫的半成品，沒想到應用時直接發(fā)生了死機

1. Params
   
2.         Numeric M1(12);
   
3.         Numeric M2(26);
   
4.         Numeric M3(9);
   
5. Vars
   
6.         NumericSeries MACD;
   
7.         NumericSeries DIF;
   
8.         NumericSeries DEA;
   
9.         NumericSeries AREA;
   
10.         Numeric NUM;
    
11.         String STR;
    
12. Begin
    
13.         DIF = EMA( Close, M1 ) - EMA( Close, M2 ) ;       
    
14.         DEA = EMA(DIF,M3);
    
15.         MACD = (DIF-DEA)*2;
    
16.         PlotNumeric("DIF",DIF);
    
17.         PlotNumeric("DEA",DEA);
    
18.         If (MACD >= 0)       
    
19.                 PlotNumeric("MACD",MACD,0,Red);
    
20.         Else
    
21.                 PlotNumeric("MACD",MACD,0,Green);
    
22.         PlotNumeric("零線",0);
    
23.         AREA=0;
    
24.         NUM=1;
    
25.         If(MACD[0]<=0 And MACD[1]>0)
    
26.         {
    
27.                 While(MACD[NUM]>0)
    
28.                 {
    
29.                         AREA=AREA+MACD[NUM];
    
30.                         NUM=NUM+1;
    
31.                 }
    
32.         }
    
33.         STR=Text(AREA);
    
34.         PlotString ("面積",STR,MACD*1.3,Green);
    
35. End

1. //------------------------------------------------------------------------
   
2. // 簡稱: EMA
   
3. // 名稱: 平滑移動平均
   
4. // 類別: 用戶函數(shù)
   
5. // 類型: 用戶函數(shù)
   
6. // 輸出: 數(shù)值型
   
7. //------------------------------------------------------------------------
   
8. 
   
9. Params
   
10.         Numeric X;
    
11.         Numeric N;
    
12. Vars
    
13.         NumericSeries Num;
    
14. Begin
    
15.         Num = (2*X+(N-1)*NUM[1])/(N+1);
    
16.         Return Num;
    
17. End