+{Page}CostPerPiece              !    6 Initializations  /02/09/2003 07:04:42.391
  !----------------------------------------

  +{Object.1} CostPerPiece.[1]WearParameters
    +{Trans}
      {nop.P}Trans:{&S.WearCoeff = 0.1; &S.WearExpon = 1.8}
    -{Trans}
  -{Object.1} CostPerPiece.[1]WearParameters
  !----------------------------------------

  +{Object.2} CostPerPiece.[2]PiecesPerHour
    +{Trans}
      {nop.P}Trans:{#D.PiecesPerHour = @D.PiecesPerHour}
    -{Trans}
  -{Object.2} CostPerPiece.[2]PiecesPerHour
  !----------------------------------------

  +{Object.3} CostPerPiece.[3]MachineCostPerHour
    +{Trans}
      {nop.P}Trans:{#S.MachineCostPerHour = &S.WearCoeff * #D.PiecesPerHour ** &S.WearExpon}...
      WRITE(9,*)"#S.MachineCostPerHour,&S.WearCoeff,#D.PiecesPerHour,&S.WearExpon"
      WRITE(9,*)#S.MachineCostPerHour,&S.WearCoeff,#D.PiecesPerHour,&S.WearExpon
    -{Trans}
  -{Object.3} CostPerPiece.[3]MachineCostPerHour
  !----------------------------------------

  +{Object.4} CostPerPiece.[4]LaborCostPerHour
    +{Trans}
      SELECT CASE ( INT ( {cp.D}PiecesPerHour ) )
        CASE (:29)
          #S.LaborCostPerHour = 25 !$ per hour
        CASE (30:)
          #S.LaborCostPerHour = 30 !$ per hour
        CASE DEFAULT
      END SELECT
      WRITE(9,*)"{cp.D}PiecesPerHour,#S.LaborCostPerHour",{cp.D}PiecesPerHour, &
      #S.LaborCostPerHour
    -{Trans}
  -{Object.4} CostPerPiece.[4]LaborCostPerHour
  !----------------------------------------

  +{Object.5} CostPerPiece.[5]CostPerPiece
    +{Trans}
      {nop.P}Trans:{&D.CostPerPiece = (#S.MachineCostPerHour + #S.LaborCostPerHour) / #D.PiecesPerHour}...
      !-----
      WRITE(9,*)"2:#PiecesPerHour =",#D.PiecesPerHour
      WRITE(9,*)"2:@PiecesPerHour =",@D.PiecesPerHour
      WRITE(9,*)"MachineCostPerHour =",#S.MachineCostPerHour
      WRITE(9,*)"LaborCostPerHour =",#S.LaborCostPerHour
      WRITE(9,*)"CostPerPiece =",&D.CostPerPiece
      !-----
      CALL OptimizationResponse(#D.PiecesPerHour,&D.CostPerPiece,"Cost per piece")
      !-----
      @D.PiecesPerHour = #D.PiecesPerHour
    -{Trans}
  -{Object.5} CostPerPiece.[5]CostPerPiece
  !----------------------------------------

  +{Object.6} CostPerPiece.[6]Initializations
    +{Trans}
      @D.PiecesPerHour = 24
      CALL OptimizationStimulus(@D.PiecesPerHour)
      WRITE(9,*)"1:#PiecesPerHour =",#D.PiecesPerHour
      WRITE(9,*)"1:@PiecesPerHour =",@D.PiecesPerHour
      &B.PiecesIncrement = 5
      &B.PiecesLim = 30
      &L.CurveBuild = &
      NodeType( {Object.2} ) == tnyArrival
      WRITE(9,*)"&L.CurveBuild",&L.CurveBuild
    -{Trans}
  -{Object.6} CostPerPiece.[6]Initializations
  !----------------------------------------

  +{Object.8} CostPerPiece.[8]PiecesPerHour-->>|MachineCostPerHour
    +{Branch}
      {nop.L}Branch={CustomerID(bigTkn) <= 1}
    -{Branch}
  -{Object.8} CostPerPiece.[8]PiecesPerHour-->>|MachineCostPerHour
  !----------------------------------------

  +{Object.13} CostPerPiece.[13]PiecesPerHour--->|WearParameters
    +{Branch}
      {nop.L}Branch={CustomerID(bigTkn) <= 1}
    -{Branch}
  -{Object.13} CostPerPiece.[13]PiecesPerHour--->|WearParameters
  !----------------------------------------

  +{Object.15} CostPerPiece.[15]CostPerPiece--->|PiecesPerHour
    +{Branch}
      {nop.L}Branch={&L.CurveBuild}...
      {nop.L}Branch = {nop.L}Branch .AND. @D.PiecesPerHour < &B.PiecesLim
      WRITE(9,*)"&L.CurveBuild,@D.PiecesPerHour < &B.PiecesLim,{nop.L}Branch:", &
      &L.CurveBuild,@D.PiecesPerHour,&B.PiecesLim,{nop.L}Branch
    -{Branch}
    +{Trans}
      {nop.P}Trans:{@D.PiecesPerHour = @D.PiecesPerHour + &B.PiecesIncrement}
    -{Trans}
  -{Object.15} CostPerPiece.[15]CostPerPiece--->|PiecesPerHour
  !----------------------------------------

  +{Object.16} CostPerPiece.[16]PiecesPerHour--->|MachineCostPerHour
    +{Branch}
      {nop.L}Branch={CustomerID(bigTkn) > 1}
    -{Branch}
  -{Object.16} CostPerPiece.[16]PiecesPerHour--->|MachineCostPerHour
-{Page}CostPerPiece
 //////////////////////////////////////////

+{Page}PiecesPerHour             !    3 DummyNode  /02/09/2003 07:04:42.391
  !----------------------------------------

  +{Object.1} PiecesPerHour.[1]Product A
    +{Trans}
      {nop.P}Trans:{#B.ProdApieces = 10}
    -{Trans}
  -{Object.1} PiecesPerHour.[1]Product A
  !----------------------------------------

  +{Object.2} PiecesPerHour.[2]Product B
    +{Trans}
      {nop.P}Trans:{#B.ProdBpieces = 20}
    -{Trans}
  -{Object.2} PiecesPerHour.[2]Product B
  !----------------------------------------

  +{Object.4} PiecesPerHour.[4]PiecesPerHour
    +{Trans}
      {nop.P}Trans:{@D.PiecesPerHour = #B.ProdApieces + #B.ProdBpieces}
    -{Trans}
  -{Object.4} PiecesPerHour.[4]PiecesPerHour
-{Page}PiecesPerHour
 //////////////////////////////////////////