龙听期货论坛's Archiver

C
+
+
版
量
化		 微信： QQ：

龙听 发表于 2022-11-3 11:49

【New Intraday HiLo】

[code]
inputs:
        NumDays( 3 ),
        RequireReversalGap( true ),
        BarsBetween( 10 ),
        StartBarTime( 1000 ),
        EndBarTime( 1430 ) ;

variables:
        var0( NumDays + 2 ),
        var1( 0 ),
        var2( 0 ),
        var3( 0 ),
        var4( 0 ),
        var5( false ),
        var6( false ),
        var7( BarsBetween - 1 ),
        var8( 0 ),
        var9( 0 ),
        var10( 0 ),
        var11( 0 ),
        var12( false ),
        var13( false ),
        var14( 0 ),
        var15( 0 ),
        var16( 0 ),
        var17( false ),
        var18( false ),
        var19( false ),
        var20( false ),
        var21( false ),
        var22( false ),
        var23( White ),
        var24( Yellow ),
        var25( Cyan ),
        var26( DarkGray ),
        var27( Blue ),
        var28( LightGray ) ;

arrays:
        arr0[ 12, 100 ]( 0 ),
        arr1[3]( 0 ) ;

Value1 = RS_DailyDataArray( var0, arr0, var1, arr1 ) ;

var2 = CurrentBar ;
var3 = var2 - arr0[ 10, var1 ]                 ;
var4 = var2 - arr0[ 11, var1 ]                 ;
var5 = var3 >= var7 ;
var6 = var4 >= var7 ;

if RequireReversalGap then
        begin
        condition1 = CurrentBar = 1 or Date <> Date[1] ;
        if condition1 then
                begin
                Value2 = RS_Extremes( NumDays, arr0, var1, var8,
                 var9, var10, var11 ) ;
                var12 = arr0[ 1, var1 ] > var8 ;
                var13 = arr0[ 1, var1 ] < var10 ;
                var14 = RS_Average( 6, NumDays, 2, arr0, var1 ) ;
                var15 = RS_Average( 6, NumDays, 1, arr0, var1 ) ;
                var16 = RS_Average( 6, NumDays, 0, arr0, var1 ) ;
                var17 = var16 > var15 and var15 > var14 ;
                var18 = var16 < var15 and var15 < var14 ;
                var19 = var18 and var12 ;
                var20 = var17 and var13 ;
                end ;
        end
else
        begin
        var19 = true ;
        var20 = true ;
        end ;

if Date = Date[1] then
        begin
        var21 = var3 = 0 and var5[1] and var19 ;
        var22 = var4 = 0 and var6[1] and var20 ;
        if var21 and var22 then
                Plot1( Close, "NewHiLo", var23 )
        else if var21 then
                Plot1( High, "NewHiLo", var24 )
        else if var22 then
                Plot1( Low, "NewHiLo", var25 ) ;
        end ;
condition1 = Time < StartBarTime or Time > EndBarTime ;
if condition1 then
        SetPlotColor( 1, var26 ) ;

if RequireReversalGap then
        if var19 then
                Plot2( Close, "RevGap", var27 )
        else if var20 then
                Plot2( Close, "RevGap", var28 ) ;

Plot3( arr0[ 2, var1 ], "HiLine" ) ;
Plot4( arr0[ 3, var1 ], "LoLine" ) ;
if var5 then
        SetPlotWidth( 3, 2 ) ;
if var6 then
        SetPlotWidth( 4, 2 ) ;
[/code]

页: [1]