[FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]CREATE [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]OR [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]REPLACE [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]FUNCTION[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] EV_370[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff].[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#808000][FONT=Courier][SIZE=2][COLOR=#808000][FONT=Courier][SIZE=2][COLOR=#808000]F_BETADIST[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]([/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]i_x [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IN [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff],[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]i_alpha [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IN [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff],[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]i_beta [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IN [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff],[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]i_a [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IN [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]DEFAULT [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]0[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff],[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]i_b [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IN [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]DEFAULT [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]1[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]) [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]RETURN [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IS[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_x [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- Reassignment variable for i_x[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_alpha [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- Beta distribution parameter[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_beta [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- Beta distribution parameter[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_d1 [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- Result of left-side integration[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_d2 [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- Result of right-side integration[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_scale [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- Sets the scale factor for F_CALC_FUNC[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]r_f_betadist [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- Return value [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]c_interval [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]CONSTANT [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]:=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]200[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- Number of double-intervals; Increase for accuracy, decrease for speed[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]c_zero [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]CONSTANT [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]:=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]0[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- For binary comparison[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]c_one [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]CONSTANT [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]:=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]1[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- For binary comparison[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT]
[I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]/*******************************************************************************************************************[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[SIZE=2][FONT=Courier][COLOR=#008000][I][SIZE=2][FONT=Courier][COLOR=#008000]Function Name: F_CALC_FUNC[/COLOR][/FONT][/SIZE][/I]
[I][SIZE=2][FONT=Courier][COLOR=#008000]Function Desc: The evaluated function for F_BETADIST[/COLOR][/FONT][/SIZE][/I]
[I][SIZE=2][FONT=Courier][COLOR=#008000]Computed as a log and then scaled by Exp(miScale) to accommodate numerical precision[/COLOR][/FONT][/SIZE][/I]
[I][SIZE=2][FONT=Courier][COLOR=#008000]********************************************************************************************************************/[/COLOR][/FONT][/SIZE][/I][/COLOR][/FONT][/SIZE][/COLOR][/SIZE][/FONT]
[FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]FUNCTION[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] F_CALC[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]([/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]i_calc_val [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IN [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]) [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]RETURN [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IS[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]r_f_calc [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
[FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]BEGIN[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
[FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IF[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]([/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]i_calc_val [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]0 [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]OR[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] i_calc_val [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]1[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]) [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]THEN[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]r_f_calc [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]:=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]0[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]RETURN[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] r_f_calc[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
[FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]ELSE[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]r_f_calc [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]:= [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]([/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_alpha [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]-[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]1[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff])[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] * [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]LN([/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]i_calc_val[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff])[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]+[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]([/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_beta [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]-[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]1[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff])[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] * [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]LN([/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]1[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]-[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] i_calc_val[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]);[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]r_f_calc [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]:= [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]EXP([/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]r_f_calc [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]+[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] v_scale[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]);[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]RETURN[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] r_f_calc[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
[FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]END [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IF;[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
[FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]END[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] F_CALC[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]/**************************************************************************************************[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[SIZE=2][FONT=Courier][COLOR=#008000][I][SIZE=2][FONT=Courier][COLOR=#008000]Function Name: F_SIMPSON[/COLOR][/FONT][/SIZE][/I]
[I][SIZE=2][FONT=Courier][COLOR=#008000]Function Desc: General Simpson Integrator[/COLOR][/FONT][/SIZE][/I]
[I][SIZE=2][FONT=Courier][COLOR=#008000]Returns the integral of Func (specific to problem) over the interval xi to xf[/COLOR][/FONT][/SIZE][/I]
[I][SIZE=2][FONT=Courier][COLOR=#008000]using the Composite Simpson's Rule over 2n intervals[/COLOR][/FONT][/SIZE][/I]
[I][SIZE=2][FONT=Courier][COLOR=#008000]***************************************************************************************************/[/COLOR][/FONT][/SIZE][/I][/COLOR][/FONT][/SIZE][/COLOR][/SIZE][/FONT]
[FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]FUNCTION[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] F_SIMPSON[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]([/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]i_xi [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IN [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff],[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]i_xf [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IN [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff],[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]i_n [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IN [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]) [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]RETURN [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IS[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
[SIZE=2][FONT=Courier][SIZE=2][FONT=Courier]v_i [/FONT][/SIZE][/FONT][/SIZE][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- index[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_i_val [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- reassignement variable for v_i[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_n [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- reassignment variable for i_n[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_dh [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- step size[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_df [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- cumulative integration of f[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]r_f_simpson [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]BINARY_DOUBLE [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]:=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]0[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- Return value[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT]
[FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]BEGIN[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
[FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IF[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] i_n [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]>= [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]1 [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]THEN[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_n [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]:= [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]2[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] * i_n[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_dh [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]:= [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]([/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]i_xf [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]-[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] i_xi[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff])[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]/[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] v_n[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- Initial value[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_df [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]:=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] F_CALC[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]([/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]i_xi[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]);[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
[I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- Odd values[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]FOR[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] v_i [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IN [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]1[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]..[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] v_n [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]-[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]1[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]LOOP[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IF [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]MOD([/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_i[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff],[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]2[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]) [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]0 [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]THEN[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- v_i is even[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]NULL;[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]ELSE[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- v_i is odd[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_df [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]:=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] v_df [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]+[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]4[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] * F_CALC[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]([/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]i_xi [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]+[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] v_i * v_dh[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]);[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]END [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IF;[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]END [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]LOOP;[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
[I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- Even values[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]FOR[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] v_i [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IN [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]1[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]..[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] v_n [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]-[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]2[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]LOOP[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IF [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]MOD([/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_i[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff],[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]2[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]) [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]0 [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]THEN[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- v_i is even [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_df [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]:=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] v_df [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]+[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]2[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] * F_CALC[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]([/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]i_xi [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]+[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] v_i * v_dh[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]);[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]ELSE[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- v_i is odd[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]NULL;[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]END [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IF;[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
[FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]END [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]LOOP;[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
[I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- Final value[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_df [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]:=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] v_df [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]+[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] F_CALC[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]([/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]i_xf[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]);[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]r_f_simpson [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]:=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] v_df * v_dh [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]/[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]3[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]RETURN[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] r_f_simpson[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
[FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]ELSE[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]RETURN [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]0[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]END [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IF;[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]END[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] F_SIMPSON[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
[FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]BEGIN[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IF[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] i_alpha [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]<=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] c_zero [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]OR[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] i_beta [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]<=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] c_zero [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]OR[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] i_x [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]<[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] i_a [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]OR[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] i_x [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]>[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] i_b [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]OR[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] i_a [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] i_b [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]THEN[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]RAISE_APPLICATION_ERROR[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff](-[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]20000[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff],[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000][FONT=Courier][SIZE=2][COLOR=#ff0000]'Invalid beta distribution parameters'[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]);[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
[FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]ELSE[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_alpha [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]:=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] i_alpha[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_beta [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]:=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] i_beta[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_x [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]:=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] i_x[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_x [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]:=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]([/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]i_x [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]-[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] i_a[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff])[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]/[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]([/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]i_b [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]-[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] i_a[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]);[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- scale to intervalb[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_scale [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]:=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]300[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]-[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]([/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_beta [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]-[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]1[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff])[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] * [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]LN([/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]1[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]-[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]([/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000][FONT=Courier][SIZE=2][COLOR=#800000]1[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]-[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] v_x[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff])[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]/[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] c_interval[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]);[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_d1 [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]:=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] F_SIMPSON[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]([/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]c_zero[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff],[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] v_x[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff],[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] c_interval[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]);[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- get left-side integral[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_d2 [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]:=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] F_SIMPSON[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]([/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_x[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff],[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] c_one[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff],[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] c_interval[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]);[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- get right-side integral[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT]
[I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- When v_d1 + v_d2 = 0, then the function will produce an error because you can't divide by zero.[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- To get around this, I return a binary_double data type, which return NAN in these cases.[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- Then, using NVL, I can substitute zero for these values.[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]r_f_betadist [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]:=[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] v_d1 [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]/[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]([/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2]v_d1 [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]+[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] v_d2[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]);[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][I][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000][FONT=Courier][SIZE=2][COLOR=#008000]-- compute ratio of left side to total[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/I][FONT=Courier][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]RETURN[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][FONT=Courier][SIZE=2] r_f_betadist[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]END [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]IF;[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff]END [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#808000][FONT=Courier][SIZE=2][COLOR=#808000][FONT=Courier][SIZE=2][COLOR=#808000]F_BETADIST[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff][FONT=Courier][SIZE=2][COLOR=#0000ff];[/COLOR][/SIZE][/FONT]
[SIZE=2][FONT=Courier][COLOR=#0000ff]/[/COLOR][/FONT][/SIZE]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]