1. Params
   
2.         Numeric Length(19);                       
   
3.         Numeric SlowLength(18);       
   
4.         Numeric SmoothLength(18);
   
5. Vars
   
6.         NumericSeries HighestValue;                               
   
7.         NumericSeries LowestValue;               
   
8.         NumericSeries KValue;
   
9.         Numeric SumHLValue;
   
10.         Numeric SumCLValue;
    
11.         Numeric DValue;
    
12.         Numeric JValue;
    
13.         StringSeries strkey;
    
14.         StringSeries strvalue;
    
15.        
    
16. Begin
    
17.         HighestValue = HighestFC(High, Length);
    
18.         LowestValue = LowestFC(Low, Length);
    
19.         SumHLValue = SummationFC(HighestValue-LowestValue,SlowLength);
    
20.         SumCLValue = SummationFC(Close - LowestValue,SlowLength);
    
21.         If(SumHLValue <> 0)
    
22.         {
    
23.                 KValue = SumCLValue/SumHLValue*100;
    
24.         }Else
    
25.         {
    
26.                 KValue = 0;
    
27.         }
    
28.         DValue = AverageFC(KValue,SmoothLength);
    
29.         JValue = 3*KValue - 2*DValue;
    
30.        
    
31.         strkey = DateToString(date)+" "+TimeToString(Time);
    
32.         strvalue = Text(JValue);
    
33.         SetTBProfileString("mymin3kdj",strkey,strvalue);
    
34.         FileAppend("D:\\amm.txt",strkey+" "+strvalue);
    
35.         PlotNumeric("J",JValue);
    
36. End

caobing 發表于 2013-10-9 13:34
用setprofilestring函數寫進數據庫的值會實時變動的。也就是只保存最新值。不知道對否？ ...