%off nat;
%on rounded;

procedure eqq1(r,a); rrr:=r-k*a;


EQQ1

procedure eqq2(r,a); rrr:=r - (k*a + sqrt(k*a)*n);


EQQ2


eqq1(r,a);


 - A*K + R

eqq1(r+k*x,a+x);


 - A*K + R


eqq2(r,a);


 - SQRT(K)*SQRT(A)*N - A*K + R

eqq2(r+k*x,a+x);


 - SQRT(A*K + K*X)*N - A*K + R





%SOLVE({EQQ(1,1),EQQ(2,1)}, {NO(1),NO(2)});

shut bb;