function koeff0=koeff0(la, lb, lc, Ia, Ib, Ic, RC)
koeff0=(0.4813564189e150 * la * lb ^ 2 * lc * Ia ^ 2 * Ib + 0.1678588240e150 * Ib * lb ^ 2 * Ia * la ^ 2 * lc + 0.1378265625e151 * la * lb * lc * Ia ^ 2 * Ib ^ 2 + 0.4806294006e150 * Ib ^ 2 * lb * Ia * la ^ 2 * lc) / (0.2076177017e58 * RC * la ^ 2 * lb ^ 2 * lc ^ 2 * Ia * Ib + 0.7281574734e57 * Ic * RC * la ^ 3 * lb * lc * Ib ^ 2 + 0.6004039055e57 * Ic * RC * la ^ 3 * lb ^ 2 * lc * Ib + 0.7281574734e57 * Ic * RC * la * lb ^ 3 * lc * Ia ^ 2 + 0.2517944666e58 * RC * la * lb ^ 2 * lc ^ 2 * Ia ^ 2 * Ib + 0.2517944666e58 * RC * la ^ 2 * lb * lc ^ 2 * Ia * Ib ^ 2 + 0.5062912129e57 * RC * la * lb ^ 3 * lc ^ 2 * Ia ^ 2 + 0.6004039055e57 * Ic * RC * la ^ 2 * lb ^ 3 * lc * Ia + 0.5062912129e57 * RC * la ^ 3 * lb * lc ^ 2 * Ib ^ 2 + 0.4174635743e57 * RC * la ^ 3 * lb ^ 2 * lc ^ 2 * Ib + 0.1207251397e57 * Ic * RC * la ^ 3 * lb ^ 3 * lc + 0.4174635743e57 * RC * la ^ 2 * lb ^ 3 * lc ^ 2 * Ia + 0.8394074034e56 * RC * la ^ 3 * lb ^ 3 * lc ^ 2 + 0.3053711359e58 * RC * la * lb * lc ^ 2 * Ia ^ 2 * Ib ^ 2 + 0.4391904681e58 * Ic * RC * la * lb * lc * Ia ^ 2 * Ib ^ 2 + 0.3621355021e58 * Ic * RC * la * lb ^ 2 * lc * Ia ^ 2 * Ib + 0.3621355021e58 * Ic * RC * la ^ 2 * lb * lc * Ia * Ib ^ 2 + 0.2985996543e58 * Ic * RC * la ^ 2 * lb ^ 2 * lc * Ia * Ib) / (Ic ^ 2 + 0.1824e4 * lc)
endfunction