[求助]模糊控制VB源代码

控制目的,通过控制风量大小来控制压力P1,即使压力P1恒定在给定压力范围内


压力差E1模糊控制子集和输出风量Q1子集分别为
E1={NB,NM,NS,ZO,PS,PM,PB}
Q1={NB,NM,NS,ZO,PS,PM,PB}
其论域分别为
E1={-3,-2,-1,0,1,2,3} Q1={0,1,2,3,4,5,6}
Q输出状态表
控制等级 0 1 2 3 4 5 6
风量设定值 0% 25% 25% 50% 75% 75% 100%


大大们,帮帮忙,能不能给编成代码啊,谢谢了,小弟跪谢!!!!