: | : | :期货程序化 | :期货程序化研究 | :期货量化学习 | :期货量化 |
返回列表 发帖

【TPO】

龙听

Rank: 9Rank: 9Rank: 9

UID
2 
积分
2747506 
威望
1323753 布 
龙e币
1423753 刀 
注册时间
2009-12-3 
最后登录
2024-6-5 

Medal No.1
1# 跳转到 » 倒序看帖
打印
tT
发表于 2022-11-3 13:17 | 只看该作者

【TPO】

  1. [RecoverDrawings=False]

  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(" ");


  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);

  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);

  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);



  180.     if NRTime(TimeMin) then begin

  182.        if BarPeriodN(ResNum, SessionN,DDate,DTime,DOpen,DHigh,DLow,DClose) then begin

  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

  230.         Online = false;

  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

  256.         MaxStepPrc = maxlist(MaxStepPrc,HighMin); //Step
  257.         MinStepPrc = minlist(MinStepPrc,LowMin);  //Step

  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;

  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;

  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;

  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;

  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;

  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;

  347.                //--------------------------------------------------------
  348.                 OldPrice = CurPrice;
  349.                 CurPrice = CurPrice + SetPoint(Precision);
  350.                  
  351.             end; //end price cicle   
  352.     end;//end NRTime

  354. if cur_day <> prev_day then        prev_day  = cur_day;
复制代码

收藏 分享
论坛官方微信、群（期货热点、量化探讨、开户与绑定实盘）
 
期货论坛 - 版权/免责声明   1.本站发布源码(包括函数、指标、策略等)均属开放源码，用意在于让使用者学习程序化语法撰写，使用者可以任意修改语法內容并调整参数。仅限用于个人学习使用，请勿转载、滥用，严禁私自连接实盘账户交易。
  2.本站发布资讯(包括文章、视频、历史记录、教材、评论、资讯、交易方案等)均系转载自网络主流媒体，内容仅为作者当日个人观点，本网转载此文出于传递更多信息之目的，并不意味着赞同其观点或证实其描述。本网不对该类信息或数据做任何保证。不对您构成任何投资建议，不能依靠信息而取代自身独立判断，不对因使用本篇文章所诉信息或观点等导致的损失承担任何责任。
  3.本站发布资源(包括书籍、杂志、文档、软件等)均从互联网搜索而来，仅供个人免费交流学习，不可用作商业用途，本站不对显示的内容承担任何责任。请在下载后24小时内删除。如果喜欢，请购买正版，谢谢合作！
  4.龙听期货论坛原创文章属本网版权作品，转载须注明来源“龙听期货论坛”，违者本网将保留追究其相关法律责任的权力。本论坛除发布原创文章外，亦致力于优秀财经文章的交流分享，部分文章推送时若未能及时与原作者取得联系并涉及版权问题时，请及时联系删除。联系方式：http://www.qhlt.cn/thread-262-1-1.html
如何访问权限为100/255贴子：/thread-37840-1-1.html；注册后仍无法回复：/thread-23-1-1.html；微信/QQ群：/thread-262-1-1.html；网盘链接失效解决办法：/thread-93307-1-1.html

返回列表