制約マクロの記述方法

制約マクロとは

記述方法

• セル関数を記述する．例として，偶数制約をマクロによって記述する．

  REM 偶数制約が満たされているかシート上で評価する関数
  Function CEven(arg As Variant)
      CEven = 1
      If IsNumeric(arg) Then
  	If arg Mod 2 <> 0 Then: CEven = 0: EndIf
      EndIf
  End Function
  
  REM 制約条件本体
  Sub _CEvenBody(args())
      Dim sheet, range As Object
      Dim internal, cell, constraint As String
  	
      sheet = GetActiveSheet()	
      range = sheet.getCellRangeByName(args(0))
  		
      internal = object_cream.CAddVariable("MIN", "MAX")  '制約変数を宣言		
      cell = Util.CellName(range, 0, 0)			
      constraint = cell & "=2*" & internal 
      object_cream.CAddConstraint(constraint) '制約条件の追加
  End Sub
  

• 記述した制約マクロ名を関数テーブルに追加する．前述の偶数制約を追加するにはCreamAddinsライブラリ-FunctionTableモジュールを次のように編集します．

  Const EVEN_FUNCTION_NAME = "CEven" 
  Function GetFunctionTable
  	Dim function_table(0) As Object
  
  	function_table() = Array( EVEN_FUNCTION_NAME )	
  	GetFunctionTable = function_table()
  End Function
  
  Sub CallFunction(function_name As String, args())
  	Select Case UCase(function_name)
              Case UCase( EVEN_FUNCTION_NAME ) :
  		call Math._CEvenBody(args())
  	End Select 			 			
  End Sub
  
  

CADDVARIABLE

CADDVARIABLE(下限値; 上限値)

• "MIN", "MINIMUM" : Calc/Creamで扱うことができる最小値 (-1073741823)
• "MAX", "MAXIMUM" : Calc/Creamで扱うことができる最大値 (1073741823)
• Integer

CADDCONSTRAINT

CADDCONSTRAINT(制約)

例1. A1+A2=3
例2．NOTEQUALS(A1:B4)