// recycle.java
// internal limiting factors
// adapted from a program in basic by H.T. Odum & E. Odum, 1994

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

public class recycle extends Applet {

	Label pr1, pr2;
	TextField in1, in2;
	Button drawbutton;
	float TN, TN2, I, Ii, Q, P0, P, Pi, P2, P2i, K1, K2, F, DI;

  public void init()
	{
	pr1 = new Label("TN Total materials: ");
	in1 = new TextField("5",4);
	add(pr1); add(in1);

	pr2 = new Label("K2 Decreasing Factor: ");
	in2 = new TextField("5",4);
	add(pr2); add(in2);

	drawbutton = new Button("Draw");
	add(drawbutton);
	}

  public boolean action(Event e, Object o)
	{
	TN = (float)Integer.parseInt(in1.getText());
	K2 = (float)Integer.parseInt(in2.getText());
	repaint();
	return true;
	}

  public void paint(Graphics g)
	{
	I=0; Ii=I; Q=5; P0=0.01f; K1=2; F=0.05f; DI=0.5f;
	K2=K2/100;
	TN=TN/10; TN2=TN*2;
	g.drawRect(0,90,240,180);

	while (I<240)
		{
		I+=DI;
		P=(K1*K2*TN*I/100)/(K2+K1*F*I/100);
		Pi=(K1*K2*TN*Ii/100)/(K2+K1*F*Ii/100);
		P2=(K1*K2*TN2*I/100)/(K2+K1*F*I/100);
		P2i=(K1*K2*TN2*Ii/100)/(K2+K1*F*Ii/100);
		g.setColor(Color.red);
		g.drawLine((int)Ii,(int)(270-Pi/P0),(int)I,(int)(270-P/P0));
		g.setColor(Color.blue);
		g.drawLine((int)Ii,(int)(270-P2i/P0),(int)I,(int)(270-P2/P0));
		Ii=I;
		}
	}
}
// Manuel Basler & E. Ortega, September 28th 2000