【TPO】

1. [RecoverDrawings=False]
   
2. 
   
3. Inputs: ResNum(2),
   
4.         Precision(0),
   
5.         ModeView(1),
   
6.         SpcWidth(3),  //Space width for mode 2
   
7.         FactorShift(20),
   
8.         CorrectShiftTime(0),
   
9.         PriceRange(1000),
   
10.         ColorTPOFirst("Coral"),
    
11.         Color_IBR("Aquamarine"),
    
12.         ColorSymbol("DeepSkyBlue"),
    
13.         ColorTPOMax("Maroon"),
    
14.         Font("Lucida Console"),
    
15.         Space(" ");
    
16. 
    
17. 
    
18. Variables:
    
19.             intrabarpersist prev_day(IntPortion(datetime data(ResNum))),
    
20.             intrabarpersist cur_day(IntPortion(datetime data(ResNum))),
    
21.             intrabarpersist SessionN(0),           
    
22.            intrabarpersist UHigh(0),
    
23.            intrabarpersist ULow(0),
    
24.            intrabarpersist _Precision(0),
    
25.            intrabarpersist DShift(0),
    
26.            intrabarpersist TShift(0),
    
27.            intrabarpersist StartTime(0),
    
28.            intrabarpersist OneStDay(true),
    
29.            intrabarpersist CalcShiftTime(0),
    
30.            intrabarpersist Midl_ID(0),
    
31.            intrabarpersist EndPrice(0),
    
32.            intrabarpersist EndTime(0),
    
33.            intrabarpersist End_ID(0),
    
34.            intrabarpersist CorrectDay(0),
    
35.            intrabarpersist TPOStep(0),
    
36.            intrabarpersist MidlMaxPrc(0),
    
37.            intrabarpersist MidlMinPrc(99999),
    
38.            intrabarpersist IdxMidlPrc(0),
    
39.            intrabarpersist StartSession(0),
    
40.            intrabarpersist ColorIBR(0),
    
41.            intrabarpersist SetNewStep(false),
    
42.            intrabarpersist MidlPrice(0),
    
43.            intrabarpersist OldPrice(0),
    
44.            intrabarpersist ColorMaxTPO(0),
    
45.            intrabarpersist TPO70(0),
    
46.            intrabarpersist RangeWidth(0),
    
47.            intrabarpersist CurStepPrc(0),
    
48.            intrabarpersist MaxStepPrc(0),
    
49.            intrabarpersist MinStepPrc(99999),
    
50.            intrabarpersist RangePrc(0),
    
51.            intrabarpersist IBR_ID(0),
    
52.            intrabarpersist CorrectTime(2400),
    
53.            intrabarpersist SymTPO(""),
    
54.            intrabarpersist TextSym(""),
    
55.            intrabarpersist MaxTPOID(0),
    
56.            intrabarpersist SaveNum(0),
    
57.            intrabarpersist TextID(0),
    
58.            
    
59.            //Lucida Console, Courier Regular,Bitstream Vera Sans Mono Bold,Bitstream Vera Sans Mono Roman
    
60.            intrabarpersist SetRange(500),
    
61.            intrabarpersist SNStep(0),
    
62.            intrabarpersist FontSize(10),
    
63.            intrabarpersist BGColor(0),
    
64.            intrabarpersist center(0),
    
65.            intrabarpersist SBGColor(0),
    
66.            intrabarpersist TextColor(0),
    
67.            intrabarpersist Border(false),
    
68.            intrabarpersist MaxTPO(0),
    
69.            intrabarpersist PRCMaxTPO(0),
    
70.            intrabarpersist SaveIPMaxTPO(0),
    
71.            intrabarpersist BGBlue(0),
    
72.            intrabarpersist BGGreen(0),
    
73.            intrabarpersist BGMagenta(0),
    
74.            intrabarpersist BGGray(0),
    
75.            intrabarpersist MaxTpoUpdate(false),
    
76.            intrabarpersist MaxTpoTlIDXH(0),
    
77.            intrabarpersist MaxTpoTlIDXL(0),
    
78.            intrabarpersist MaxTpoTlIDXLeft(0),
    
79.            intrabarpersist MaxTpoTlIDXRight(0),
    
80.            intrabarpersist BarPrcCount(0),
    
81.            intrabarpersist WidthMaxTPO(1),
    
82.            intrabarpersist NumTL(0),
    
83.            intrabarpersist TEST(""),
    
84.            intrabarpersist SPC(""),
    
85.            //----------------------
    
86.            _Font(""),
    
87.            intrabarpersist BarCount(0),
    
88.            intrabarpersist MaxPnt(0),
    
89.            intrabarpersist MinPnt(0),
    
90.            intrabarpersist MaxStep(0),
    
91.            intrabarpersist RznTime(0),
    
92.            intrabarpersist VP(0),
    
93.            intrabarpersist NewStep(false),
    
94.            intrabarpersist TextShift(0),
    
95.            intrabarpersist DateMin(0),
    
96.            intrabarpersist TimeMin(0),
    
97.            intrabarpersist DateTimeMin(0),
    
98.            intrabarpersist OpenMin(0),
    
99.            intrabarpersist HighMin(0),
    
100.            intrabarpersist LowMin(0),
     
101.            intrabarpersist CloseMin(0),
     
102.            intrabarpersist SaveCloseMin(0),
     
103.            intrabarpersist MinDayPrc(0),
     
104.            intrabarpersist MaxDayPrc(0),
     
105.            intrabarpersist StartMinDayPrc(0),
     
106.            intrabarpersist DayRzn(0),
     
107.            intrabarpersist CorrDay(0),
     
108.            intrabarpersist TotalTPO(0),
     
109.            intrabarpersist SavPMaxTPO(0),
     
110.            intrabarpersist TDate(0),
     
111.            intrabarpersist TTime(0),
     
112.            intrabarpersist TTimeMax(0),
     
113.            intrabarpersist TDateMax(0),
     
114.            intrabarpersist AppSize(0),
     
115.            intrabarpersist Online(false),
     
116.            intrabarpersist DrawTPO(false),
     
117.                            SetColorText(0),
     
118.                            ColorFirstTPO(0),
     
119.            intrabarpersist IdxDayRange(0),
     
120.            intrabarpersist CurPrice(0),
     
121.            intrabarpersist DDate(0),
     
122.            intrabarpersist DTime(0),
     
123.            intrabarpersist DOpen(0),
     
124.            intrabarpersist DHigh(0),
     
125.            intrabarpersist DLow(99999),
     
126.            intrabarpersist DClose(0),
     
127.            intrabarpersist MinIBR(0),
     
128.            intrabarpersist MaxIBR(0),
     
129.            intrabarpersist Modif(false),
     
130.            intrabarpersist OLDID_MAXTPO(0),
     
131.            intrabarpersist ShiftCountTPO(0),
     
132.            intrabarpersist ShiftIBR(0),
     
133.            intrabarpersist ShiftFTPO(0);
     
134. 
     
135.     Arrays: intrabarpersist ID_CountTPO[](0),
     
136.             intrabarpersist Table[5000,48](0),
     
137.             intrabarpersist ArStepTPO[](""),
     
138.             intrabarpersist ID_TPO[](0),
     
139.             intrabarpersist StringTPO[](""),
     
140.             intrabarpersist R_ID[](0);
     
141. 
     
142.   once begin
     
143.   
     
144.        array_setmaxindex(ID_CountTPO,PriceRange);
     
145.        array_setmaxindex(ArStepTPO,PriceRange);
     
146.        array_setmaxindex(ID_TPO,PriceRange);
     
147.        array_setmaxindex(StringTPO,PriceRange);
     
148.        array_setmaxindex(R_ID,PriceRange);
     
149.       
     
150.        ColorMaxTPO = WEBColor(ColorTPOMax);
     
151.        SetColorText = WEBColor(ColorSymbol);
     
152.        ColorFirstTPO = WEBColor(ColorTPOFirst);
     
153.        ColorIBR = WEBColor(Color_IBR);
     
154.        _Font = Font;
     
155.        SPC = Space;
     
156.        if Precision = 0 then begin
     
157.            _Precision = Digits;
     
158.        end else begin
     
159.            _Precision = Precision;
     
160.        end;
     
161.       
     
162.        TextShift = FactorShift;   
     
163.   end;
     
164.   
     
165.   cur_day = IntPortion(datetime);
     
166.   
     
167.   if SessionN = 0 then SessionN = CurrSessionNum(ResNum);
     
168.   if SessionN = 0 then #return;
     
169.   
     
170.     DateMin = Date Data(ResNum);
     
171.     TimeMin = Time Data(ResNum);
     
172.     DateTimeMin = DateTime Data(ResNum);
     
173.     OpenMin = Round(Open data(ResNum) ,_Precision);
     
174.     HighMin = Round(High data(ResNum) ,_Precision);
     
175.     LowMin  = Round(Low data(ResNum) ,_Precision);
     
176.     CloseMin= Round(Close data(ResNum) ,_Precision);
     
177. 
     
178. 
     
179. 
     
180.     if NRTime(TimeMin) then begin
     
181. 
     
182.        if BarPeriodN(ResNum, SessionN,DDate,DTime,DOpen,DHigh,DLow,DClose) then begin
     
183. 
     
184.            OneStDay = true;
     
185.            TPOStep = 0;
     
186.            StartMinDayPrc = CloseMin - PriceRange/2*SetPoint(Precision);
     
187.            for value1=0 to PriceRange begin
     
188.                for value2=0 to 48 begin
     
189.                    Table[value1,value2] = 0;
     
190.                end;
     
191.                R_ID[value1]=0;
     
192.                ArStepTPO[value1] = "";
     
193.                StringTPO[value1] = "";
     
194.                ID_TPO[value1] = 0;
     
195.                ID_CountTPO[value1]=0;
     
196.                
     
197.            end;
     
198.          
     
199.            IdxDayRange =0;
     
200.            
     
201.            MaxTPO  = 0;
     
202.            PRCMaxTPO = 0;
     
203.            MaxTPOID = 0;
     
204.            MaxTpoTlIDXH = 0;  
     
205.            MaxTpoTlIDXL = 0;
     
206.            MaxTpoTlIDXLeft = 0;
     
207.            MaxTpoTlIDXright = 0;
     
208.            Midl_ID = 0;
     
209.            IBR_ID =0;
     
210.            End_ID =0;
     
211.            OLDID_MAXTPO=0;
     
212.            MidlMaxPrc =0;
     
213.            MidlMinPrc = 99999;
     
214.            TotalTPO=0;
     
215.            MaxDayPrc = 0;
     
216.            MinDayPrc = 99999;
     
217.            EndPrice =0;
     
218.            EndTime =0;
     
219.            UHigh = 0;
     
220.            ULow = 0;
     
221.            MinIBR = 99999;
     
222.            MaxIBR = 0;
     
223.         end;
     
224.         
     
225.         TDate = DDate+DShift;
     
226.       
     
227.         MinDayPrc = DLow;   //Day
     
228.         MaxDayPrc = DHigh;  //Day
     
229. 
     
230.         Online = false;
     
231. 
     
232.         NewStep = false;
     
233.         if StepTPO_N(ResNum, SessionN, DateMin, TimeMin,30,0,TPOStep) then begin
     
234.             SymTPO = TPOSym(TPOStep);
     
235.             NewStep = true;
     
236.             MaxStepPrc = 0;
     
237.             MinStepPrc = 99999;
     
238.             if ModeView = 1 then begin  
     
239.                  TextSym = SymTPO;
     
240.                  TextColor = SetColorText;
     
241.                  BGColor = black;
     
242.             end else if ModeView = 2 then begin   
     
243.                  switch(SpcWidth ) begin
     
244.                      case 1 : TextSym = " ";
     
245.                      case 2 : TextSym = "  ";
     
246.                      case 3 : TextSym = "   ";
     
247.                      case 4 : TextSym = "    ";
     
248.                      case 5 : TextSym = "     ";
     
249.                  end;
     
250.                  TextColor = SetColorText;
     
251.                  BGColor = SetColorText;
     
252.                  _Font = "Bitstream Vera Sans Mono Roman";      
     
253.             end;
     
254.         end; //StepTPO
     
255. 
     
256.         MaxStepPrc = maxlist(MaxStepPrc,HighMin); //Step
     
257.         MinStepPrc = minlist(MinStepPrc,LowMin);  //Step
     
258. 
     
259.             CurPrice = StartMinDayPrc;
     
260.       
     
261.             DShift=cur_day - prev_day;
     
262.             //if DayOfWeek(DDate) = 5 or DayOfWeek(DDate) = 4 then begin
     
263.             //     DShift=3;
     
264.             //end;
     
265. 
     
266.             for value1=0 to PriceRange begin
     
267.                 if CurPrice >= MinStepPrc and CurPrice <= MaxStepPrc then begin   
     
268.                     
     
269.                     //========== Initial Balance Range ===============
     
270.                     if TPOStep = 1 then begin
     
271.                        ShiftIBR = TextShift/5;
     
272.                        if IBR_ID = 0 then begin
     
273.                            IBR_ID = DrawDTLine(DDate+DShift,CorrectShiftTime+DTime+ShiftIBR ,DDate+DShift,CorrectShiftTime+DTime+ShiftIBR ,MinStepPrc,MaxStepPrc,0,ColorIBR,2); //range one step
     
274.                        end else begin
     
275.                            TL_Correct(IBR_ID,DDate+DShift,CorrectShiftTime+DTime+ShiftIBR,MinStepPrc-SetPoint(Precision)/2,DDate+DShift,CorrectShiftTime+DTime+ShiftIBR ,MaxStepPrc+SetPoint(Precision)/2);                 
     
276.                        end;
     
277.                     end;   
     
278.                     
     
279.                     //================== Midl Price =========================
     
280.                     if MidlMaxPrc < value1 then begin   
     
281.                         MidlMaxPrc = value1;
     
282.                     end;
     
283.                     if MidlMinPrc > value1 then begin   
     
284.                         MidlMinPrc = value1;
     
285.                     end;
     
286. 
     
287.                     if ArStepTPO[value1] <> SymTPO then begin
     
288.                         Modif = false;
     
289.                         for value2=0 to TPOStep -1 begin
     
290.                            
     
291.                             //====== First TPO ===========
     
292.                             SBGColor = BGColor;
     
293.                             if OneStDay then begin
     
294.                                ShiftFTPO = TextShift/3;
     
295.                                DrawDTText(" ",DDate+DShift,CorrectShiftTime+DTime+ShiftFTPO,CurPrice,TextColor,ColorFirstTPO,FontSize,"Bitstream Vera Sans Mono Roman",0,2,Border);
     
296.                                OneStDay = false;
     
297.                             end;
     
298. 
     
299.                             if Table[value1,value2] = 0 then begin
     
300.                            
     
301.                                 //=== MAX TPO ===
     
302.                                 if MaxTPO < (value2+1) then begin
     
303.                                     MaxTPO = (value2+1);
     
304.                                     PRCMaxTPO = CurPrice;
     
305.                                 end;
     
306. 
     
307.                                 //====== VA ======
     
308.                                 TPO70 = TotalTPO*70/100;
     
309.                                  
     
310.                                 //========= Count TPO ==============
     
311.                                 ShiftCountTPO = TextShift/5;
     
312.                                 if ID_CountTPO[value1] = 0 then begin
     
313.                                     ID_CountTPO[value1] = DrawDTText( NumToStr(value2+1,0),DDate+DShift,CorrectShiftTime+DTime-ShiftCountTPO ,CurPrice ,White,0,FontSize,_Font,1,2,false); //step count  
     
314.                                 end else begin
     
315.                                     text_setstring(ID_CountTPO[value1],NumToStr(value2+1,0));
     
316.                                 end;
     
317. 
     
318.                                 StringTPO[value1] = StringTPO[value1] + TextSym+SPC;
     
319.                                 Table[value1,value2] = TPOStep;
     
320.                                 EndPrice = CurPrice;
     
321.                                 EndTime = TTime+TShift;
     
322.                                 Modif = true;
     
323.                                 TotalTPO = TotalTPO +1;
     
324.                                 break;
     
325.                             end;
     
326.                         end; //end tpo cicle
     
327.                         ArStepTPO[value1] = SymTPO;
     
328.                     end;
     
329.                     
     
330.                   
     
331.                     if Modif then begin
     
332.                         if ID_TPO[value1] = 0 then begin
     
333.                             ID_TPO[value1] = DrawDTText(StringTPO[value1] ,DDate+DShift,CorrectShiftTime+DTime+TextShift,CurPrice,TextColor,SBGColor,FontSize,_Font,0,2,Border); //Draw Text
     
334.                         end else begin
     
335.                             text_setstring(ID_TPO[value1],StringTPO[value1]);
     
336.                         end;
     
337.                            
     
338.                         //MAX TPO
     
339.                         if PRCMaxTPO = CurPrice then begin   
     
340.                             text_setbgcolor(OLDID_MAXTPO,SBGColor);
     
341.                             text_setbgcolor(ID_TPO[value1],ColorMaxTPO);
     
342.                             OLDID_MAXTPO = ID_TPO[value1];
     
343.                         end;
     
344.                     end;  
     
345.                  end;
     
346. 
     
347.                //--------------------------------------------------------
     
348.                 OldPrice = CurPrice;
     
349.                 CurPrice = CurPrice + SetPoint(Precision);
     
350.                  
     
351.             end; //end price cicle   
     
352.     end;//end NRTime
     
353. 
     
354. if cur_day <> prev_day then        prev_day  = cur_day;

复制代码