summaryrefslogtreecommitdiff
path: root/3720/CH1/EX1.5/Ex1_5.sce
blob: 7e340f007a1d0fb4e96574f3e634ae7f62c91642 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//Example 1_5
clc;clear;funcprot(0);
//Given relations
//  x-y=4;
//x^2+y^2=x+y+20;

//Solution
// Assume x=y(1);y=y(2);
function[X]=unknowns(y);
    X(1)=y(1)-y(2)-4;
    X(2)=y(1)^2+y(2)^2-y(1)-y(2)-20;
endfunction
y=[1 1];
z=fsolve(y,unknowns);
printf('x=%0.0f \n',z(1));
printf('y=%0.0f \n',z(2));