Function calculateCollateralRatio