模糊關係矩陣的合成 in scilab

// 模糊關係矩陣的合成 in scilab
// 用法例: fuzzycompo(R,S)   => 此函式輸出的模糊關係矩陣 是R,S兩模糊關係矩陣的合成

function C=fuzzycompo(A, B)
  [nrA ncA] = size(A)
  [nrB ncB] = size(B)
  // ncA與nrB須相等, 若想檢查則加scripts於此處
  C=zeros(nrA,ncB);
  for i=1:nrA
    for j=1:ncB
      [minV] = min(A(i,:), B(:,j)');
      [C(i,j)] = max(minV);
    end
  end
endfunction

// 網上或有現成, 但找一會兒没找到就自己寫了