03-21-2011
Hi vgersh99 and all,
Thank you for your help. The solution you gave works well, just a small problem I am not able to solve and have tried to do this by mysellf as a way to learn more how to use awk. but over a week now I can solve this. The problem is the solution above fails if the number just before or just before the negative numbers is 0.00. see the data
Here the data and see what happens
Quote:
2.91 -1.19 1.34 78.00 2.00
3.09 -1.21 1.33 91.00 2.00
3.28 -1.03 1.41 87.00 2.00
3.47 -0.78 1.48 86.00 2.00
3.66 -0.47 1.51 86.00 2.00
3.84 0.00 1.42 88.00 2.00
4.03 0.47 1.15 85.00 2.00
4.22 0.93 0.45 87.00 2.00
4.41 1.00 0.00 87.00 1.00
4.59 1.00 0.00 87.00 1.00
4.78 1.00 0.00 87.00 1.00
4.97 1.00 0.00 84.00 1.00
5.16 1.00 0.00 88.00 1.00
5.34 1.00 0.00 86.00 1.00
8.53 1.00 0.00 86.00 1.00
8.72 1.00 0.00 87.00 1.00
8.91 1.00 0.00 78.00 1.00
9.09 1.00 0.00 91.00 1.00
9.28 1.00 0.00 87.00 1.00
9.47 1.00 0.00 86.00 1.00
9.66 1.00 0.00 86.00 1.00
9.84 1.00 0.00 88.00 1.00
10.03 0.00 1.09 85.00 2.00
10.22 -0.86 1.46 87.00 2.00
10.41 -1.86 0.63 87.00 2.00
10.59 -1.76 0.82 87.00 2.00
10.78 -0.83 1.47 87.00 2.00
10.97 0.07 1.40 84.00 2.00
11.16 0.80 0.76 88.00 2.00
11.34 1.00 0.00 86.00 1.00
See how this fails to give the correct result as when the data is as given in my initial post.
I have been thinking a solution would be to use some if statement but I have not managed to find a way to use an iff statement in this case.
I sincerely appreciate you assistance.
Thank you
Malandisa
9 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi Gurus,
In my file I have an amount field from position 74 to 87, which contains values starting with '+' as well as '-'. I want to add all positive values in a varible called "CREDIT" and all negative values in a variable "DEBIT". I know, we can use grep to identify values with positive and... (4 Replies)
Discussion started by: berlin_germany
4 Replies
2. Shell Programming and Scripting
Hello,
For my weather station I have made a little perl script to put the data into cacti. The next problem I have.
I can only get positive numbers or negative numbers.
What do I do:
Though a shell scrip I call the perl script.
Shell script:
#!/bin/sh
cat data.txt | stats.pl
Perl... (4 Replies)
Discussion started by: rbl-blacklight
4 Replies
3. Shell Programming and Scripting
Hi,
I have a file that looks like this:
Jake 2 3 4 6 4 3 -2 -1
Jerry 1 2 3 2 1 7 -6 -1
Timmy -1 -4 -5 -8 9 3 1
I want to find the most positive and negative value for each row and also define its position (based on column #)
So the output would look... (7 Replies)
Discussion started by: gisele_l
7 Replies
4. Shell Programming and Scripting
Hello,
I have a list like this :
1
2
-4
0
-3
-7
5
6 etc.
Is there a way to remove all the positive values and print only the negative values, without using grep, sed or awk?
Thanks,
Prasanna (4 Replies)
Discussion started by: prasanna1157
4 Replies
5. Shell Programming and Scripting
Let, I have three numbers
+00123.25
-00256.54
+00489.23
I need to sum up all those three numbers, after storing them in three variables (say var1, var2, var3).
I used both expr and BC, but they didn't work for me.
But, I am not able to sum up them, as I don't have any idea how to... (13 Replies)
Discussion started by: mady135
13 Replies
6. Shell Programming and Scripting
Hello all,
I'm new to the forums and hope to be able to contribute something useful in the future; however I must admit that what has prompted me to join is the fact that currently I need help with something that has me at the end of my tether.
I have a PDB (Protein Data Bank) file which I... (13 Replies)
Discussion started by: crunchgargoyle
13 Replies
7. Shell Programming and Scripting
Dear All,
I have to split a tab delimited file in two files based on the presence of a positive or negative in column number 9 , for example
file:
A 1 5 erg + 6766 0.9889 0.9817 9.01882 erg inside upstream
B 1 8 erg2 + 6766 0.9889 0.9817 -9.22 erg2 inside... (3 Replies)
Discussion started by: paolo.kunder
3 Replies
8. UNIX for Beginners Questions & Answers
Hi ALL,
I am having semi column separated file as below. I am having negative values for the records starting with 11095. How can I convert that positive number
I tried this below seems not working
sed 's/ \(*\)$/ -\1/;t;s/\(.*\)-/\1/ myfile
myfile... (6 Replies)
Discussion started by: arunkumar_mca
6 Replies
9. UNIX for Beginners Questions & Answers
I have a file that is pipe delimited and in Column F they have number values, both positive and negative. I need to take the one file I am starting with and split it into two separate files based on negative and positive numbers. What is the command to do so? And then I need to also transfer... (4 Replies)
Discussion started by: cckaiser15
4 Replies
LEARN ABOUT DEBIAN
zgels.f
zgels.f(3) LAPACK zgels.f(3)
NAME
zgels.f -
SYNOPSIS
Functions/Subroutines
subroutine zgels (TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, LWORK, INFO)
ZGELS solves overdetermined or underdetermined systems for GE matrices
Function/Subroutine Documentation
subroutine zgels (characterTRANS, integerM, integerN, integerNRHS, complex*16, dimension( lda, * )A, integerLDA, complex*16, dimension( ldb, *
)B, integerLDB, complex*16, dimension( * )WORK, integerLWORK, integerINFO)
ZGELS solves overdetermined or underdetermined systems for GE matrices
Purpose:
ZGELS solves overdetermined or underdetermined complex linear systems
involving an M-by-N matrix A, or its conjugate-transpose, using a QR
or LQ factorization of A. It is assumed that A has full rank.
The following options are provided:
1. If TRANS = 'N' and m >= n: find the least squares solution of
an overdetermined system, i.e., solve the least squares problem
minimize || B - A*X ||.
2. If TRANS = 'N' and m < n: find the minimum norm solution of
an underdetermined system A * X = B.
3. If TRANS = 'C' and m >= n: find the minimum norm solution of
an undetermined system A**H * X = B.
4. If TRANS = 'C' and m < n: find the least squares solution of
an overdetermined system, i.e., solve the least squares problem
minimize || B - A**H * X ||.
Several right hand side vectors b and solution vectors x can be
handled in a single call; they are stored as the columns of the
M-by-NRHS right hand side matrix B and the N-by-NRHS solution
matrix X.
Parameters:
TRANS
TRANS is CHARACTER*1
= 'N': the linear system involves A;
= 'C': the linear system involves A**H.
M
M is INTEGER
The number of rows of the matrix A. M >= 0.
N
N is INTEGER
The number of columns of the matrix A. N >= 0.
NRHS
NRHS is INTEGER
The number of right hand sides, i.e., the number of
columns of the matrices B and X. NRHS >= 0.
A
A is COMPLEX*16 array, dimension (LDA,N)
On entry, the M-by-N matrix A.
if M >= N, A is overwritten by details of its QR
factorization as returned by ZGEQRF;
if M < N, A is overwritten by details of its LQ
factorization as returned by ZGELQF.
LDA
LDA is INTEGER
The leading dimension of the array A. LDA >= max(1,M).
B
B is COMPLEX*16 array, dimension (LDB,NRHS)
On entry, the matrix B of right hand side vectors, stored
columnwise; B is M-by-NRHS if TRANS = 'N', or N-by-NRHS
if TRANS = 'C'.
On exit, if INFO = 0, B is overwritten by the solution
vectors, stored columnwise:
if TRANS = 'N' and m >= n, rows 1 to n of B contain the least
squares solution vectors; the residual sum of squares for the
solution in each column is given by the sum of squares of the
modulus of elements N+1 to M in that column;
if TRANS = 'N' and m < n, rows 1 to N of B contain the
minimum norm solution vectors;
if TRANS = 'C' and m >= n, rows 1 to M of B contain the
minimum norm solution vectors;
if TRANS = 'C' and m < n, rows 1 to M of B contain the
least squares solution vectors; the residual sum of squares
for the solution in each column is given by the sum of
squares of the modulus of elements M+1 to N in that column.
LDB
LDB is INTEGER
The leading dimension of the array B. LDB >= MAX(1,M,N).
WORK
WORK is COMPLEX*16 array, dimension (MAX(1,LWORK))
On exit, if INFO = 0, WORK(1) returns the optimal LWORK.
LWORK
LWORK is INTEGER
The dimension of the array WORK.
LWORK >= max( 1, MN + max( MN, NRHS ) ).
For optimal performance,
LWORK >= max( 1, MN + max( MN, NRHS )*NB ).
where MN = min(M,N) and NB is the optimum block size.
If LWORK = -1, then a workspace query is assumed; the routine
only calculates the optimal size of the WORK array, returns
this value as the first entry of the WORK array, and no error
message related to LWORK is issued by XERBLA.
INFO
INFO is INTEGER
= 0: successful exit
< 0: if INFO = -i, the i-th argument had an illegal value
> 0: if INFO = i, the i-th diagonal element of the
triangular factor of A is zero, so that A does not have
full rank; the least squares solution could not be
computed.
Author:
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date:
November 2011
Definition at line 182 of file zgels.f.
Author
Generated automatically by Doxygen for LAPACK from the source code.
Version 3.4.1 Sun May 26 2013 zgels.f(3)