import java.math.BigDecimal;public class IRRUtilMath2 {public static double irr(double[] income) {return irr(income, 0.1D);}public static double irr(double[] values, double guess) {int maxIterationCount = 20;double absoluteAccuracy = 1.0E-007D;double x0 = guess;int i = 0;while (i < maxIterationCount) {double fValue = 0.0D;double fDerivative = 0.0D;for (int k = 0; k < values.length; k++) {fValue += values[k] / Math.pow(1.0D + x0, k);fDerivative += -k * values[k] / Math.pow(1.0D + x0, k + 1);}double x1 = x0 - fValue / fDerivative;if (Math.abs(x1 - x0) <= absoluteAccuracy) {return x1;}x0 = x1;i++;}return (0.0D / 0.0D);}public static void main(String[] args) {double[] income = {-359900,19413.67,19413.67,19413.67,19413.67,19413.67,19413.67,19413.67,19413.67,19413.67,19413.67,19413.67,19413.67,19413.67,19413.67,19413.67,19413.67,19413.67,19413.67,19413.67,19413.67,19413.67,18241.01,0,0};double ret = irr(income,0.00001d)*12 ;System.out.println(new BigDecimal(ret));}
}

--定义type
create or replace type typ_cashflow_array is varray(60) of number;--实现函数
function IRR_ZEN(p_amount_array in typ_cashflow_array, p_guess in number)RETURN NUMBER is rtn_err number := -9999999;maxIterationCount number := 20;absoluteAccuracy number := 0.0000001;x0 number := p_guess;x1 number := 0;i_num integer := 0; fValue number := 0.0;fDerivative number := 0.0;BEGIN--x0 :=p_guess;while (i_num < maxIterationCount) loopfValue := 0.0;fDerivative := 0.0;for k in 1..p_amount_array.count loopfValue :=fValue+p_amount_array(k)/power(1.0 + x0, k);fDerivative :=fDerivative+(-k *p_amount_array(k)/power(1.0 + x0, k + 1));end loop;x1 := x0 - fValue / fDerivative;if (abs(x1 - x0) <= absoluteAccuracy) thenreturn x1;end if;x0 := x1;i_num := i_num+1;end loop; return (0.0/0.0);EXCEPTIONWHEN OTHERS THENreturn rtn_err; END IRR_ZEN;

function IRR(in_varray in varchar2) return numberis v_irr number;v_amount_array  typ_cashflow_array;beginv_amount_array :=typ_cashflow_array();declarev_varray_str varchar2(1000);v_length number;v_split varchar2(2);v_cnt integer; begin v_varray_str:=ltrim(rtrim(in_varray));v_length:=0;v_split :=',';v_cnt :=1;---劈开字符串，为数据赋值while instr(v_varray_str,v_split)<>0 loopv_length:=v_length+1; v_amount_array.extend;v_amount_array(v_cnt) :=to_number(substr(v_varray_str,1,instr(v_varray_str,v_split)-1));v_varray_str:=substr(v_varray_str,instr(v_varray_str,v_split)+length(v_split),length(v_varray_str));v_cnt :=v_cnt+1;end loop;--循环的末尾追加最后一个数字
        v_amount_array.extend;v_amount_array(v_cnt) :=to_number(v_varray_str);end; v_irr :=IRR_ZEN(p_amount_array => v_amount_array, p_guess =>0.1 );return v_irr;end ;

select LES_FIN_TO_DW.IRR(listagg(t.fee_amt,',') within group( order by t.pay_pd))*12  from
F_LES_PAY_SCH_IRR_CAL_CASHFLOW t
where t.pay_sch_id=180605104121724
order by t.pay_pd;

select les_fin_to_dw.IRR_ZEN(cast(collect(fee_amt) as typ_cashflow_array),0.1)*12
from(
select t.fee_amt
from F_LES_PAY_SCH_IRR_CAL_CASHFLOW t
where t.pay_sch_id=171218104072346
order by t.pay_pd
);