FLEXSCHE版本17

显示例子

// External method
// Class name : @optimize
// Entry name : optimize
// 此模板代码我法直接执行。请恰当替换代码中出现的计算表达式和变量。
// ·代入文的左边值无法从takt表达式变换为JavaScript的计算表达式时、
// 　请使用SDSpace.Calculate()方式进行替换。
// 　在计算表达式中参照变量时、用CreateTypedExpression制作ISDExpression
// 　例、可以用ISDExpression.AddVariable()赋值。
// ·在管理结构内使用相同表达式反复评价时、活用ISDExpression例
// 　可以节省无用的表达式解析处理。
// ·从排程方法参照结构化记述方法内声明的变量时
// 　作为方法的参数声明、请改写为用IGPExecutableEntity.ParameterValue()
// 　明确赋值。
// ·改写代码后、运行[工具]-[外界程序重新登记]后外部方法即可使用
function _optimize( gpManager, settings )
{
/*
  // select target, record list as 'opers' / 对象标记
  var method_00 = gpManager.CreateExecutableEntity( Script.Null,
	'scheduling-method', '4FFFD14593C84439A4D62E5DB227F36E' );
  // clear flag 'operToMove' for opers / 对象标记
  var method_01 = gpManager.CreateExecutableEntity( Script.Null,
	'scheduling-method', 'A8D3706703CE4E8EB6AC0C0A8375B484' );
  // record let, dt on NumSpec / 属性设置
  var method_02 = gpManager.CreateExecutableEntity( Script.Null,
	'scheduling-method', '634157C095E24B1BB93F689F84C31BE6' );
  // RecordAsBest0-0(Unassign) and unassign pendings / 解除工作分派
  var method_03 = gpManager.CreateExecutableEntity( Script.Null, 'scheduling-method',
	'B2527E9FCBD043A1A42219C034CD78C9' );
  // calc LST (1) and record 'lst' and 'mwtH' for each resource / 工作主导调度
  var method_04 = gpManager.CreateExecutableEntity( Script.Null, 'scheduling-method',
	'98D62C9A03144FA492FEB6C0C570B700' );
  // calc LST (2) / 解除工作分派
  var method_05 = gpManager.CreateExecutableEntity( Script.Null, 'scheduling-method',
	'9D217769F85245EEAE162106294A9E0C' );
  // RecordAsBest0-1(Reassign) / 工作主导调度
  var method_06 = gpManager.CreateExecutableEntity( Script.Null, 'scheduling-method',
	'E5124B4CBBF34A25A012F999664BF18D' );
  // 解除工作分派
  var method_07 = gpManager.CreateExecutableEntity( Script.Null, 'scheduling-method',
	'15629FBD5DEF4A2290111B8E61B8C0BA' );
  // move operToMove to resToMove at timeToMove / 工作主导调度
  var method_08 = gpManager.CreateExecutableEntity( Script.Null, 'scheduling-method',
	'9E8CD555763143958204A9071AFFA958' );
  // relocate resToMove / 正向重新分派
  var method_09 = gpManager.CreateExecutableEntity( Script.Null, 'scheduling-method',
	'701D79C8FD4C4B1E929C712B13589D57' );
  // record dt on NumSpec for opers on resToMove / 属性设置
  var method_10 = gpManager.CreateExecutableEntity( Script.Null, 'scheduling-method',
	'1FAA32D06BA044E59D913B681ED77490' );
  // record as tabu / 属性设置
  var method_11 = gpManager.CreateExecutableEntity( Script.Null, 'scheduling-method',
	'948A309CBBF648A59E8C2BBA583C4584' );
  // Record As Best / 正向重新分派
  var method_12 = gpManager.CreateExecutableEntity( Script.Null, 'scheduling-method',
	'D2120074768E4DFDA3323B42151E209A' );
  // (debug) record evalBest on Project.Property / 属性设置
  var method_13 = gpManager.CreateExecutableEntity( Script.Null, 'scheduling-method',
	'55B91F351A27429C834E15DD2A5C59F4' );
  // (debug) record eval on Project.Property / 属性设置
  var method_14 = gpManager.CreateExecutableEntity( Script.Null, 'scheduling-method',
	'CDDADFCCE3054BA588F9E8171CDD1674' );
  // clear tabu / 属性设置
  var method_15 = gpManager.CreateExecutableEntity( Script.Null, 'scheduling-method',
	'F739DD31ACAF4D12B952438EC9CDEEC2' );
 【中略】
  var cMetaRepeat;
  var cRepeat;
  var debug;
  var evalBest;
  var opersTabu;
  var ress;
  method_00.Execute(); // select target, record list as 'opers'
  cMetaRepeat = 3;
  cRepeat = 500;
  debug = true;
  if( $debug )
	method_01.Execute(); // clear flag 'operToMove' for opers
  method_02.Execute(); // record let, dt on NumSpec
  ress = $opers.Union([.AssignedResource]);
  evalBest = $opers._Eval01 + $ress.Sum([$opers._EvalForRes($_object)]);
  if( $evalBest > 0 )
  {
	var iMetaRepeat;
	var iRepeat;
	method_03.Execute(); // RecordAsBest0-0(Unassign) and unassign pendings
	method_04.Execute(); // calc LST (1) and record 'lst' and 'mwtH' for each resource
	method_05.Execute(); // calc LST (2)
	method_06.Execute(); // RecordAsBest0-1(Reassign)
	iMetaRepeat = 0;
	while( $iMetaRepeat < $cMetaRepeat and $evalBest > 0 )
	{
	  if( true )
	  {
		var cRes;
		var eval;
		var iRes;
		cRes = $ress.Count;
		iRes = 0;
		while( $iRes < $cRes )
		{
		  var opersOnRes;
		  var resToMove;
		  resToMove = $ress.At($iRes);
		  opersOnRes = $resToMove.AssignedOperations.Select([.Flag('target')]);
		  while( true )
		  {
			var operToMove;
			var timeToMove;
			operToMove = $opersOnRes.Select([not .Flag('tabu')
			  and ._dEval3_ToJoinLeft <= 0]).MinAt([.ManufactureStartTime]);
			if( not $operToMove.DoesExist )
			  break;
			timeToMove = $operToMove._TimeToJoin($resToMove);
			if( $timeToMove.IsNormal and $timeToMove < $operToMove.StartTime )
			{
			  method_07.Execute(); // 解除工作分派
			  method_08.Execute(); // move operToMove to resToMove at timeToMove
			  method_09.Execute(); // relocate resToMove
			  method_10.Execute(); // record dt on NumSpec for opers on resToMove
			}
			if( true )
			  method_11.Execute(); // record as tabu
		  }
		  iRes = $iRes + 1;
		}
		eval = $opers._Eval01 + $ress.Sum([$opers._EvalForRes($_object)]);
		if( $eval < $evalBest )
		{
		  method_12.Execute(); // Record As Best
		  evalBest = $eval;
		  if( $debug )
			method_13.Execute(); // (debug) record evalBest on Project.Property
		}
		if( $debug )
		  method_14.Execute(); // (debug) record eval on Project.Property
	  }
	  if( true )
	  {
		method_15.Execute(); // clear tabu
		opersTabu = OperationList.Empty;
	  }
	  iRepeat = 0;
	  while( $iRepeat < $cRepeat and $evalBest > 0 )
	  {
		var eval;
		var operToImprove;
		var operToMove;
		operToImprove = $opers.Select([.NumSpec('dt')<0 and not .Flag('tabu')])
		 .MinAt([.ManufactureStartTime]);
		if( not $operToImprove.DoesExist )
		  break;
 【后略】