| 774 | |
| 775 | |
| 776 | void lrline(const ap::real_2d_array& xy, |
| 777 | int n, |
| 778 | int& info, |
| 779 | double& a, |
| 780 | double& b) |
| 781 | { |
| 782 | ap::real_1d_array s; |
| 783 | int i; |
| 784 | double vara; |
| 785 | double varb; |
| 786 | double covab; |
| 787 | double corrab; |
| 788 | double p; |
| 789 | |
| 790 | if( n<2 ) |
| 791 | { |
| 792 | info = -1; |
| 793 | return; |
| 794 | } |
| 795 | s.setbounds(0, n-1); |
| 796 | for(i = 0; i <= n-1; i++) |
| 797 | { |
| 798 | s(i) = 1; |
| 799 | } |
| 800 | lrlines(xy, s, n, info, a, b, vara, varb, covab, corrab, p); |
| 801 | } |
| 802 | |
| 803 | |
| 804 | /************************************************************************* |