【Data】

龙听

1. input:
   
2.         UpColor(Green),
   
3.         DnColor(Red),
   
4.         NtColor(White),
   
5.         Automatic(True);
   
6.        
   
7. if LastBarOnChart then                                          
   
8. begin
   
9. 
   
10.         var: last_(0), prevclose_(0),
    
11.              _UpColor(0),_DnColor(0),_NtColor(0);
    
12.              
    
13.         if (Automatic) Then
    
14.           begin
    
15.                 switch(GetBackgroundColor)
    
16.                 begin
    
17.                         case rgb(149,182,88)         : _UpColor=darkgreen;_DnColor=red;_NtColor=white;         {Green Gradient}
    
18.                         case rgb(207,207,207) : _UpColor=darkgreen;_DnColor=red;_NtColor=black;          {White Gradient}
    
19.                         case rgb(255,255,255) : _UpColor=darkgreen;_DnColor=red;_NtColor=black;        {White}        
    
20.                         case rgb(150,230,150) : _UpColor=darkgreen;_DnColor=red;_NtColor=black;        {Green}
    
21.                         default:_UpColor=green;_DnColor=red;_NtColor=white;
    
22.                 end;
    
23.           end
    
24.         else
    
25.           begin
    
26.                 _UpColor=UpColor;_DnColor=DnColor;_NtColor=NtColor;
    
27.           end;
    
28.        
    
29.         last_ = last;
    
30.         prevclose_ = prevclose;
    
31. 
    
32.         NoPlot(1);
    
33.         if ( last_ <> 0 ) then
    
34.         begin
    
35.                 value1 = _NtColor;
    
36.                 if ( last_ > prevclose_ ) then
    
37.                         value1 = _UpColor
    
38.                 else if ( last_ < prevclose_ ) then
    
39.                         value1 = _DnColor;
    
40.                                
    
41.                 plot1 (last_, "Last", value1);
    
42.         end;
    
43.        
    
44.         NoPlot(2);
    
45.         NoPlot(3);
    
46.         if ( last_ <> 0 ) and ( prevclose_ <> 0 ) then
    
47.         begin
    
48.                 value2 = last_ - prevclose_;
    
49.                 value3 = value2 / prevclose_ * 100;
    
50.                 plot2 (value2, "Net Chg", value1);
    
51.                 plot3 (value3, "Net %Chg", value1);
    
52.         end;
    
53. 
    
54.         var: insidebid_(0), insideask_(0), dailyhigh_(0), dailylow_(0);
    
55.        
    
56.         insidebid_ = insidebid;
    
57.         if (insidebid_ <> 0) then
    
58.                 plot4 (insidebid_, "Bid",_NtColor)
    
59.         else
    
60.                 NoPlot(4);
    
61.                  
    
62.         insideask_ = insideask;
    
63.         if (insideask_ <> 0) then
    
64.                 plot5 (insideask_, "Ask",_NtColor)
    
65.         else
    
66.                 NoPlot(5);
    
67. 
    
68.         dailyhigh_ = dailyhigh;
    
69.         if (dailyhigh_ <> 0) then
    
70.                 plot6 (dailyhigh_, "High",_NtColor)
    
71.         else
    
72.                 NoPlot(6);
    
73. 
    
74.         dailylow_ = dailylow;
    
75.         if (dailylow_ <> 0) then
    
76.                 plot7 (dailylow_, "Low",_NtColor)
    
77.         else
    
78.                 NoPlot(7);
    
79. 
    
80. end;

复制代码