Question

我试图通过我的循环和输出语句获得一些方便，目前我有一笔贷款可以像这样摊还：

data have;
input Payment2017 Payment2018 Payment2019 Payment2020;
datalines;

100 10 10 10;

run;

我正在尝试创建一个看似这样的成熟度和重新发布配置文件，我将在提交当前代码时解释逻辑：

data want;
input;
P2017 P2018 P2019 P2020 F1 F2 F3 MP2017 MP2018 MP2019 MP2020 NI2017 NI2018 NI2019 NI2020;
datalines;

100 10 10 10 0.1 0.1 0.1 100 10 10 10 0 0 0 0
100 10 10 10 0.1 0.1 0.1 0 10 1 1 0 10 0 0
100 10 10 10 0.1 0.1 0.1 0 0 11 1.1 0 0 11 0
100 10 10 10 0.1 0.1 0.1 0 0 0 12.1 0 0 0 12.1
;
run;

所以逻辑是：

Payment2017 =年初的余额 Payment2018 - 2020 =每个期间支付的金额 F1-F3是每个期间支付的贷款的一部分。

MP2017-MP2020是已偿还的贷款金额 - 基本上是

mp(i) = p(i) *f(i)

NI2017-NI2020是新发行的金额，如果您假设每次我还清一些贷款，它都会重新加到贷款上。所以我使用的当前代码看起来像这样，但我在输出和循环方面遇到了一些问题。

        data want;
        set have;

        array MaturityProfile(4) MaturityProfile&StartDate-MaturityProfile&EndDate;  
        array NewIssuance(4) NewIssuance&StartDate - NewIssuance&EndDate;
        array p(4) payment&StartDate-payment&EndDate;
        array fraction(3); * track constant fraction determined at start of profile;

            MaturityProfile(1) = P(1);

            do i = 1 to 3;

            fraction(i) = p(i+1) / p(1);

            end;

            iter=2;
            do j = 1 to 2;
            do i = iter to 4;

            MaturityProfile(i) = P(j) * Fraction(i-j);
            newissuance(i) = MaturityProfile(i);
            end;
            output;
            iter=iter+1;
            end;
            output;

            *MaturityProfile(4) = ( P(3) + MaturityProfile(2) ) * Fraction(1);


            *output;

            drop i;
            drop j;
            drop iter;

            run;

我正在尝试找到前两行的方法，保持它当前输出的方式，但第三行需要第二行（或newissuance2019）的列的总和，然后将其乘以1

所以基本上输出看起来就像我在数据中放入的表一样。

TIA。

Answer 1

我设法解决了这个问题：

data want;
    set have;

    array MaturityProfile(4) MaturityProfile&StartDate-MaturityProfile&EndDate;  
    array NewIssuance(4) NewIssuance&StartDate - NewIssuance&EndDate;
    array p(4) payment&StartDate-payment&EndDate;
    array fraction(3); * track constant fraction determined at start of profile;
    array Total(4) Total1-Total4;

        MaturityProfile(1) = P(1);

        do i = 1 to 3;

        fraction(i) = p(i+1) / p(1);

        end;

        iter=2;
        do j = 1 to 2;
        do i = iter to 4;

        MaturityProfile(i) = P(j) * Fraction(i-j);
        Total(i)=MaturityProfile(i) + P(i);
        end;
        output;
        iter=iter+1;
        end;

        MaturityProfile(4) = Total(3) * Fraction(1);


        output;

        drop i;
        drop j;
        drop iter;

        run;

循环和输出

1 个答案: