eval_strong_negate.m

来自「CheckMate is a MATLAB-based tool for mod」· M 代码 · 共 50 行

function f = eval_strong_negate(node)
% STRONG_NEGATE Evaluate strong negation
%
% Example 
% 

global GLOBAL_AP

symbol = node.symbol;
production = node.production;
value = node.value;

switch symbol
  case 'sf',
    % evaluate state formula according to production type
    switch production,
      case 'not_ap',
	f = evaluate(node.value{2});  % evaluate it
      case 'ap',
	f = ~evaluate(node.value{1}); %evaluate its negation
      case 'AX',
	f = checkAX(eval_strong_negate(node.value{3}));
      case 'AF',
	f = checkAG(eval_strong_negate(node.value{3}));
      case 'AG',
	f = checkAF(eval_strong_negate(node.value{3}));
      case 'AU',
	f = checkAR(eval_strong_negate(node.value{2}),eval_strong_negate(node.value{4}));
      case 'AR',
	f = checkAU(eval_strong_negate(node.value{2}),eval_strong_negate(node.value{4}));
      case 'and',
	f = eval_strong_negate(node.value{1}) | eval_strong_negate(node.value{3});
      case 'or',
	f =  eval_strong_negate(node.value{1}) & eval_strong_negate(node.value{3});
      case 'parentheses',
	f =  eval_strong_negate(node.value{2});
      otherwise
	error(sprintf('Unknown production type ''%s''.',production))
    end
  case 'ap',
    % evaluate atomic proposition
    if isfield(GLOBAL_AP,value)
      f = ~eval(['GLOBAL_AP.' value]);
    else
      error(sprintf('Unknown atomic proposition name ''%s''.',value))
    end
  otherwise,
    error(sprintf('Unknown node symbol ''%s''.',symbol))
end