Amortisman için Azalan Bakiye Yöntemini Hesaplayın?

[Mandıra Filozofu]

Opera tarayıcısında AI Aria tarafından oluşturulan kodum var

Kod yalnızca şunun için yanlış cevap veriyor: Depreciation factor=1?

assetValue=10000;
salvageValue=2000;
assetLife=5;
depreciationFactor=1;

decliningBalanceDepreciation[assetValue_, salvageValue_, assetLife_, depreciationFactor_] := Module[{bookValue = assetValue, depTable = {}},
AppendTo[
depTable, {"Year", "Beginning Book Value", "Depreciation Percent",
"Depreciation Amount", "Accumulated Depreciation",
"Ending Book Value"}];
Do[depreciation =
Min[bookValue - salvageValue,
depreciationFactor*bookValue/assetLife];
accumulatedDepreciation =
If[i == 1, depreciation, Last[depTable][[5]] + depreciation];
endingBookValue = Max[salvageValue, bookValue - depreciation];
AppendTo[
depTable, {i, bookValue, (depreciation/bookValue)*100,
depreciation, accumulatedDepreciation, endingBookValue}];
bookValue = endingBookValue;, {i, 1, assetLife}];
depTable]

Grid[decliningBalanceDepreciation[assetValue, salvageValue, assetLife, depreciationFactor], Frame -> All] //N

Aşağıya bakınız: