Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Excel / Programming / March 2008

Tip: Looking for answers? Try searching our database.

Need to calculate the difference between different pairs of values!

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
ilford3200@gmail.com - 21 Mar 2008 18:39 GMT
Hello! Please help!

I have a column with 20 integers, from 1 to 20. Each integer is
associated with a value in a second column.

These integers represent 20 evenly spaced points along a circle.
Points 1 and 20 are therefore close together, whereas points 1 and 10
are maximally separated.

I need to calculate the difference between the recorded values for
every possible combination of lag distances! Namely,
points with a lag distance of 1 would include (1,2) (2,3) (3,4)
(4,5) ... (20,1)
points with a lag distance of 2 would include (1,3) (2,4) (3,5) (4,6)
(5,7) ... (20,2)
points with a lag distance of 10 (maximal distance!) would include
(1,10) (2,11) (3,12) (4,13) ... (20,10)

I need to present all the calculated differences of my recorded values
in a new column. For each calculated difference I would also need to
know which lag I'm dealing with (1,2, ... 10), perhaps in another
column.

Thank you!

Ilford
Joel - 21 Mar 2008 19:22 GMT
Sub Lag_Dist()

'place number in Column A from rows 2 to 21
Total_Numbers = 20
For Lag = 1 To 10
  Col_Num = Lag + 1
  Cells(1, Col_Num) = "Lag " & Lag
  For Num = 0 To (Total_Numbers - 1)
     Row_Num = Num + 2
     Second_Row_Num = ((Num + Lag) Mod Total_Numbers) + 2
     Cells(Row_Num, Col_Num) = _
        Range("A" & Row_Num) - Range("A" & Second_Row_Num)
  Next Num
Next Lag

End Sub

> Hello! Please help!
>
[quoted text clipped - 22 lines]
>
> Ilford
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.