龙听期货论坛's Archiver

龙听 发表于 2022-11-1 11:51

【C_MornStar_EveStar】

[code]inputs:
        Len( numericsimple ),
        oMorningStar( numericref ),
        oEveningStar( numericref ) ;

variables:
        var0( 0 ),
        var1( 0 ) ,
        var2( 0 ),
        var3( 0 ) ;

var0 = MaxList( Close, Open ) ;
var1 = MinList( Close, Open ) ;
var2 = var0 - var1 ;
var3 = XAverage( var2, Len ) ;

oMorningStar = 0 ;
oEveningStar = 0 ;

if CurrentBar > 2 then
        begin
        condition1 = Close[2] < Open[2]
                                                             
                and var2[2] > var3[2]
                                              
                and var0[1] < var1[2]
                                                                
                and var2[1] < var3[1]
                                                
                and Close > Open
                                                         
                and var0 > var1[2];

        if condition1
                                                                   
        then
                oMorningStar = 1
        else
        begin
        condition1 = Close[2] > Open[2]
                                                             
                and var2[2] > var3[2]
                                              
                and var1[1] > var0[2]
                                                               
                and var2[1] < var3[1]
                                                
                and Close < Open
                                                         
                and var1 < var0[2];

        if condition1                                                                   
        then
                oEveningStar = 1 ;
        end;
        end ;

C_MornStar_EveStar = 1 ;
[/code]

页: [1]