models/johnpye/moody.a4c

REQUIRE "atoms.a4l";

IMPORT "dsg";
IMPORT "johnpye/extpy/extpy";
IMPORT "johnpye/moody";

MODEL moody;
	f IS_A positive_factor;
	Re IS_A positive_factor;
	eps_on_D IS_A fraction;

	friction: dsg_friction_factor(
		Re, eps_on_D : INPUT;
		f : OUTPUT
	);
	
	eps IS_A distance;
	D IS_A distance;
	eps_on_D = eps / D;
METHODS
METHOD on_load;
	RUN reset; RUN values;
END on_load;
METHOD specify;
	FIX Re, eps, D;
END specify;
METHOD values;
	Re := 20000;
	eps := 0.007 {mm};
	D := 25.4 {mm};
END values;
METHOD plot;
	EXTERNAL moodyplot(SELF);
END plot;
END moody;
1	REQUIRE "atoms.a4l";
2
3	IMPORT "dsg";
4	IMPORT "johnpye/extpy/extpy";
5	IMPORT "johnpye/moody";
6
7	MODEL moody;
8	f IS_A positive_factor;
9	Re IS_A positive_factor;
10	eps_on_D IS_A fraction;
11
12	friction: dsg_friction_factor(
13	Re, eps_on_D : INPUT;
14	f : OUTPUT
15	);
16
17	eps IS_A distance;
18	D IS_A distance;
19	eps_on_D = eps / D;
20	METHODS
21	METHOD on_load;
22	RUN reset; RUN values;
23	END on_load;
24	METHOD specify;
25	FIX Re, eps, D;
26	END specify;
27	METHOD values;
28	Re := 20000;
29	eps := 0.007 {mm};
30	D := 25.4 {mm};
31	END values;
32	METHOD plot;
33	EXTERNAL moodyplot(SELF);
34	END plot;
35	END moody;