目标子程序.for

来自「以前一个高人的程序」· FOR 代码 · 共 13 行

	SUBROUTINE MUBIAO(XX,F)!目标函数子程序
	REAL XX(100)!基因数组
	REAL A
	REAL B
	REAL F
	
	A=(XX(1)**2)*XX(2)*(XX(3)**2)
	B=2*(XX(1)**3)*(XX(3)**2)+3*(XX(1)**2)*(XX(2)**2)
     $    +2*(XX(2)**2)*(XX(3)**3)+(XX(1)**3)*(XX(2)**2)*(XX(3)**3)	
	 F=A/B
	RETURN
	END