// factors
// influence of external limiting factors
// adapted from a program in basic by H.T. Odum & E. Odum, 1994.

import java.applet.Applet;
import java.awt.*;

public class factors extends Applet {
  Label pr;
	TextField in;
	float j,i,k1,k3,n,p,j2,p2,n2,ii,pi,pi2;
  public void init(){
	  pr = new Label("Inflow of limiting factor J: ");
		in = new TextField("5",4);
		add(pr);add(in);
	}
	public boolean action(Event e, Object o){
	  j = (float)Integer.parseInt(in.getText());
		repaint();
		return true;
	}
	public void paint(Graphics g){
	  i=1;k1=0.08f;k3=0.01f;ii=i;
		j2=j+5;
		pi=k1*i*j/(1+k3*i);
		pi2=k1*i*j2/(1+k3*i);
		g.drawRect(50,50,320,180);
		while ((i/2)<320){
		  i+=2;
			n=j/(1+k3*i);
			p=k1*i*n;
			n2=j2/(1+k3*i);
			p2=k1*i*n2;
			g.setColor(Color.red);
			g.drawLine((int)(50+ii/2),(int)(230-pi),(int)(50+i/2),(int)(230-p));
			g.setColor(Color.blue);
			g.drawLine((int)(50+ii/2),(int)(230-pi2),(int)(50+i/2),(int)(230-p2));
			ii=i;pi=p;pi2=p2;
		}
	}
}
// Strefan Kontur & E. Ortega. September, 2000.