tesub7.m

来自「Tennessee eastman 的Matalb仿真程序」· M 代码 · 共 10 行

function TESUB7VAL = TESUB7(I);
      global G;
      G = rem(G * 9228907,4294967296);
	  if I >= 0;
      TESUB7VAL = G / 4294967296;
	  else
	  TESUB7VAL = 2 * G / 4294967296 - 1;
      return
      end