Sponsored Content
Top Forums Programming generating pair of numbers in special order Post 302545681 by vjramana on Tuesday 9th of August 2011 07:20:04 AM
Old 08-09-2011
generating pair of numbers in special order

I need some help in generating pair of numbers in orders using FORTRAN code.
The order is like following.
loop_1: 1,2 2,3 3,4 4,5 5,6 6,7 7,8 ..... until <= 2000
loop_2: 1,3 3,5, 5,7 7,9 9,11 11,13 ........until <= 2000
loop_3: 1,4, 4,7 7,10 10,13 13,17 ..... until <= 2000
loop_4: 1,5 5,9 9,13 13,17 17,21 .... until <= 2000
. . . . until loop_100:
I have tried with simple code such as
Code:
program loopJump
implicit none
 !
 integer :: i,j,k   
do k = 1, 6  
do i =  1, 5      
j=(i+k)     
print*, i,"   ",j   
enddo  
enddo   

stop  
end

But I can not get as I wanted.


Any help is appreciated.
Thanks in advance.

Last edited by pludi; 08-09-2011 at 08:52 AM..
 

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

generating random numbers with hamming distance 4

Hi I want to genrate 10 random 32 bit binary numbers with hamming distance 4 and 8. 11010110010101010101010101010101 11010110010101010100010101010010 if we look carefully at these two binary numbers they differ at 4 places hence hamming distance 4. Now I want to genrate these numbers... (2 Replies)
Discussion started by: hack_tom
2 Replies

2. Shell Programming and Scripting

generating line numbers

hello All Do anybody know how to generat number line that is puting the number of lines at the begining of a new line, with d bracket by the side say 1) 2) 3) any help would be nice (7 Replies)
Discussion started by: sam4now
7 Replies

3. Shell Programming and Scripting

Ascending & Descending order numbers

Dear All, I have below attached file in which i have many nos, i want the last ascending order nos. The brief description is given below. File 315 381 432 315 381 432 315 381 432 315 381 432 315 381 432 (6 Replies)
Discussion started by: pravani1
6 Replies

4. Shell Programming and Scripting

Generating random numbers

Hi, I am having trouble with generating random numbers. can this be done with awk? So I have a file that looks like this: 23 30 24 40 26 34 So column1 is start and column2 is end. I want to generate 3 random #'s between start and stop: So the output will look like this: ... (9 Replies)
Discussion started by: phil_heath
9 Replies

5. Shell Programming and Scripting

Generating Gaussian Distributed Random Numbers

I want to generate an awk function that generated a Gaussian distributed set of random numbers. I need to implement the thing below in awk. Rnd is just a uniform random number between 0 and 1 function rgaussian(r1, r2) { Do v1 = 2 * Rnd - 1 v2 = 2 * Rnd - 1 ... (0 Replies)
Discussion started by: kristinu
0 Replies

6. Shell Programming and Scripting

picking the numbers missing which is supposed to be a numercal/counting order

Hi, I have a tab delimited file with 2 columns. In the first column the numbers are sorted from smallest to largest. It is supposed to be in the numerical order but in between some numbers are missing. Is there a way I could easily get those numbers that are missing and output it a file using... (11 Replies)
Discussion started by: Lucky Ali
11 Replies

7. UNIX for Dummies Questions & Answers

Appending a column of numbers in ascending order to a text file

I have a text file where I want to append a column of numbers in ascending orders. Input: 57 abc 25 def 32 ghi 54 jkl Output:57 abc 57 abc 1 25 def 2 32 ghi 3 54 jkl 4 How do I go about doing that? Thanks! (11 Replies)
Discussion started by: evelibertine
11 Replies

8. Shell Programming and Scripting

How To Arrange Record In A Special Order?

Hi All, I have following data to be arranged based on columnd 6: 0098442947 0098222107 0098442134 0098200179 0098441067 0098442744 0098443106 0098442746 0098321411 0098443111 0098456611 0098444570 0098456600 0098385750 0098200288 (3 Replies)
Discussion started by: angshuman
3 Replies

9. Shell Programming and Scripting

Nawk special numbers

Just stumbled over a terrible feature in nawk derivates. I did not find it documented in man pages. HP-UX 11.31: echo info | awk '{print $1+0}' inf echo nano | awk '{print $1+0}' nan echo info | awk '{print $1-$1}' -nanSolaris 10: echo info | nawk '{print $1+0}' Inf echo nano | nawk... (5 Replies)
Discussion started by: MadeInGermany
5 Replies
J0(3)							     Linux Programmer's Manual							     J0(3)

NAME
j0, j0f, j0l, j1, j1f, j1l, jn, jnf, jnl, y0, y0f, y0l, y1, y1f, y1l, yn, ynf, ynl - Bessel functions SYNOPSIS
#include <math.h> double j0(double x); double j1(double x); double jn(int n, double x); double y0(double x); double y1(double x); double yn(int n, double x); float j0f(float x); float j1f(float x); float jnf(int n, float x); float y0f(float x); float y1f(float x); float ynf(int n, float x); long double j0l(long double x); long double j1l(long double x); long double jnl(int n, long double x); long double y0l(long double x); long double y1l(long double x); long double ynl(int n, long double x); DESCRIPTION
The j0() and j1() functions return Bessel functions of x of the first kind of orders 0 and 1, respectively. The jn() function returns the Bessel function of x of the first kind of order n. The y0() and y1() functions return Bessel functions of x of the second kind of orders 0 and 1, respectively. The yn() function returns the Bessel function of x of the second kind of order n. For the functions y0(), y1() and yn(), the value of x must be positive. For negative values of x, these functions return -HUGE_VAL. The j0f() etc. and j0l() etc. functions are versions that take and return float and long double values, respectively. CONFORMING TO
The functions returning double conform to SVID 3, BSD 4.3, XPG4, POSIX 1003.1-2001. The other functions exist by analogy, and exist on sev- eral platforms. BUGS
There are errors of up to 2e-16 in the values returned by j0(), j1() and jn() for values of x between -8 and 8. 2002-08-25 J0(3)
All times are GMT -4. The time now is 02:15 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy