CorprationMoney

to setup
  ca
  system-dynamics-setup

    ifelse 商务人员平均月工资 * 商务人员数量 * 0.2 < 商务人员平均月工资
    [ set 商务管理层平均工资 商务人员平均月工资 * 2]
    [ set 商务管理层平均工资 商务人员平均月工资 * 商务人员数量 * 0.2 ]
end 

to go
  system-dynamics-go

  system-dynamics-do-plot
  if plot-pen-exists? "当月毛利" [
    set-current-plot-pen "当月毛利"
    plotxy ticks 当月毛利
  ]
  ;;print-all
end 
;;to print-all
;;  output-print (word "人员数量: " 商务人员数量)

;;end