Pipeline controller: plan 2 (hard +, error +50 %), backlog throttle, 2 trajectory workers, stop rules, summaries every 50; budget reserve

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
Kral
2026-10-05 13:35:54 +02:00
parent 1c4667a0fc
commit 13360292dd
781 changed files with 50211 additions and 22 deletions

View File

@@ -0,0 +1,106 @@
CLASS {{p}}sweep_pricer DEFINITION
PUBLIC
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
TYPES:
ty_building TYPE c LENGTH 1,
ty_fee TYPE p LENGTH 8 DECIMALS 2.
METHODS calculate
IMPORTING iv_flues TYPE i
iv_building TYPE ty_building
iv_soot TYPE i
iv_express TYPE abap_bool
RETURNING VALUE(rv_fee) TYPE ty_fee.
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_building,
house TYPE ty_building VALUE 'H',
apartment TYPE ty_building VALUE 'A',
restaurant TYPE ty_building VALUE 'R',
END OF c_building,
c_rate_house TYPE ty_fee VALUE '45.00',
c_rate_apartment TYPE ty_fee VALUE '35.00',
c_rate_restaurant TYPE ty_fee VALUE '60.00',
c_express_fee TYPE ty_fee VALUE '25.00',
c_min_fee TYPE ty_fee VALUE '60.00',
c_no_fee TYPE ty_fee VALUE '0.00',
c_discount_pct TYPE i VALUE 10,
c_discount_flues TYPE i VALUE 4,
c_soot_min TYPE i VALUE 2,
c_soot_max TYPE i VALUE 5,
c_soot_step TYPE i VALUE 5.
METHODS rate_of
IMPORTING iv_building TYPE ty_building
RETURNING VALUE(rv_rate) TYPE ty_fee.
METHODS base_fee
IMPORTING iv_flues TYPE i
iv_rate TYPE ty_fee
RETURNING VALUE(rv_base) TYPE ty_fee.
METHODS soot_pct
IMPORTING iv_soot TYPE i
RETURNING VALUE(rv_pct) TYPE i.
ENDCLASS.
CLASS {{p}}sweep_pricer IMPLEMENTATION.
METHOD calculate.
IF iv_flues < 1.
rv_fee = c_no_fee.
RETURN.
ENDIF.
DATA(lv_rate) = rate_of( iv_building ).
IF lv_rate IS INITIAL.
rv_fee = c_no_fee.
RETURN.
ENDIF.
DATA(lv_fee) = base_fee( iv_flues = iv_flues
iv_rate = lv_rate ).
lv_fee = lv_fee + lv_fee * soot_pct( iv_soot ) / 100.
IF iv_express = abap_true.
lv_fee = lv_fee + c_express_fee.
ENDIF.
IF lv_fee < c_min_fee.
lv_fee = c_min_fee.
ENDIF.
rv_fee = lv_fee.
ENDMETHOD.
METHOD rate_of.
CASE iv_building.
WHEN c_building-house.
rv_rate = c_rate_house.
WHEN c_building-apartment.
rv_rate = c_rate_apartment.
WHEN c_building-restaurant.
rv_rate = c_rate_restaurant.
WHEN OTHERS.
rv_rate = c_no_fee.
ENDCASE.
ENDMETHOD.
METHOD base_fee.
rv_base = iv_flues * iv_rate.
IF iv_flues >= c_discount_flues.
rv_base = rv_base - rv_base * c_discount_pct / 100.
ENDIF.
ENDMETHOD.
METHOD soot_pct.
IF iv_soot >= c_soot_min AND iv_soot <= c_soot_max.
rv_pct = ( iv_soot - 1 ) * c_soot_step.
ELSE.
rv_pct = 0.
ENDIF.
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,81 @@
CLASS ltc_sweep_pricer DEFINITION
FINAL
FOR TESTING
DURATION SHORT
RISK LEVEL HARMLESS.
PRIVATE SECTION.
TYPES ty_fee TYPE p LENGTH 8 DECIMALS 2.
DATA mo_cut TYPE REF TO {{p}}sweep_pricer.
METHODS setup.
METHODS minimum_fee_applies FOR TESTING.
METHODS soot_surcharge FOR TESTING.
METHODS volume_discount FOR TESTING.
METHODS express_fee FOR TESTING.
METHODS unknown_building FOR TESTING.
METHODS invalid_flues FOR TESTING.
ENDCLASS.
CLASS ltc_sweep_pricer IMPLEMENTATION.
METHOD setup.
mo_cut = NEW {{p}}sweep_pricer( ).
ENDMETHOD.
METHOD minimum_fee_applies.
cl_abap_unit_assert=>assert_equals(
exp = CONV ty_fee( '60.00' )
act = mo_cut->calculate( iv_flues = 1
iv_building = 'A'
iv_soot = 1
iv_express = abap_false ) ).
ENDMETHOD.
METHOD soot_surcharge.
cl_abap_unit_assert=>assert_equals(
exp = CONV ty_fee( '216.00' )
act = mo_cut->calculate( iv_flues = 3
iv_building = 'R'
iv_soot = 5
iv_express = abap_false ) ).
ENDMETHOD.
METHOD volume_discount.
cl_abap_unit_assert=>assert_equals(
exp = CONV ty_fee( '132.30' )
act = mo_cut->calculate( iv_flues = 4
iv_building = 'A'
iv_soot = 2
iv_express = abap_false ) ).
ENDMETHOD.
METHOD express_fee.
cl_abap_unit_assert=>assert_equals(
exp = CONV ty_fee( '115.00' )
act = mo_cut->calculate( iv_flues = 2
iv_building = 'H'
iv_soot = 1
iv_express = abap_true ) ).
ENDMETHOD.
METHOD unknown_building.
cl_abap_unit_assert=>assert_equals(
exp = CONV ty_fee( '0.00' )
act = mo_cut->calculate( iv_flues = 3
iv_building = 'X'
iv_soot = 3
iv_express = abap_false ) ).
ENDMETHOD.
METHOD invalid_flues.
cl_abap_unit_assert=>assert_equals(
exp = CONV ty_fee( '0.00' )
act = mo_cut->calculate( iv_flues = 0
iv_building = 'H'
iv_soot = 3
iv_express = abap_false ) ).
ENDMETHOD.
ENDCLASS.