Register Inmates Photos Site Rules Search Today's Posts Mark Forums Read

 View Results: . . 0 0% . 0 0% Voters: 0. You may not vote on this poll

 09-02-2012, 04:11 PM #12331 paulie77 Gopher   Joined: Dec 2011 Location: The Ville Oddometer: 17 Keidaish Point Park Keidaish Point Park -Monroe County Twnshp Rd 419, Clarington, OH I was not brave enough to ride my bike up the steep grass and rock hill!!! Looking up river at an Aluminum Plant! paulie77 screwed with this post 09-02-2012 at 04:29 PM
 09-02-2012, 04:20 PM #12332 paulie77 Gopher   Joined: Dec 2011 Location: The Ville Oddometer: 17 Next Up 3 digit state route that in is a County named after our 5th President or some lady who sang happy birthday to our 35th President.
09-02-2012, 04:48 PM   #12333
sion
sigh-own

Joined: Jul 2010
Location: Hocking Hills
Oddometer: 3,636
Quote:
 Originally Posted by paulie77 3 digit state route that in is a County named after our 5th President or some lady who sang happy birthday to our 35th President.

there are at least 6 3-digit state routes in that county...I think we're gonna need a bit more info
__________________
I say, there's no such thing as a bad day's riding. -metaljockey

whats the value of good gear?: http://www.advrider.com/forums/showp...ostcount=49301

 09-02-2012, 05:06 PM #12334 paulie77 Gopher   Joined: Dec 2011 Location: The Ville Oddometer: 17 Adds up to 10
 09-02-2012, 05:15 PM #12335 vivid dadas Studly Adventurer     Joined: Dec 2009 Location: Thumbolia Oddometer: 865 Option Explicit Function RealEqual(A, B, Optional Epsilon As Double = 0.00000001) RealEqual = Abs(A - B) <= Epsilon End Function Function ExtendRslt(CurrRslt, NewVal, Separator) If CurrRslt = "" Then ExtendRslt = NewVal _ Else ExtendRslt = CurrRslt & Separator & NewVal End Function Sub recursiveMatch(ByVal MaxSoln As Integer, ByVal TargetVal, InArr(), _ ByVal HaveRandomNegatives As Boolean, _ ByVal CurrIdx As Integer, _ ByVal CurrTotal, ByVal Epsilon As Double, _ ByRef Rslt(), ByVal CurrRslt As String, ByVal Separator As String) Dim I As Integer For I = CurrIdx To UBound(InArr) If RealEqual(CurrTotal + InArr(I), TargetVal, Epsilon) Then Rslt(UBound(Rslt)) = (CurrTotal + InArr(I)) _ & Separator & Format(Now(), "hh:mm:ss") _ & Separator & ExtendRslt(CurrRslt, I, Separator) If MaxSoln = 0 Then If UBound(Rslt) Mod 100 = 0 Then Debug.Print "Rslt(" & UBound(Rslt) & ")=" & Rslt(UBound(Rslt)) Else If UBound(Rslt) >= MaxSoln Then Exit Sub End If ReDim Preserve Rslt(UBound(Rslt) + 1) ElseIf IIf(HaveRandomNegatives, False, CurrTotal + InArr(I) > TargetVal + Epsilon) Then ElseIf CurrIdx < UBound(InArr) Then recursiveMatch MaxSoln, TargetVal, InArr(), HaveRandomNegatives, _ I + 1, _ CurrTotal + InArr(I), Epsilon, Rslt(), _ ExtendRslt(CurrRslt, I, Separator), _ Separator If MaxSoln <> 0 Then If UBound(Rslt) >= MaxSoln Then Exit Sub Else 'we've run out of possible elements and we _ still don't have a match End If Next I End Sub Function ArrLen(Arr()) As Integer On Error Resume Next ArrLen = UBound(Arr) - LBound(Arr) + 1 End Function Function checkRandomNegatives(Arr) As Boolean Dim I As Long I = LBound(Arr) Do While Arr(I) < 0 And I < UBound(Arr): I = I + 1: Loop If I = UBound(Arr) Then Exit Function Do While Arr(I) >= 0 And I < UBound(Arr): I = I + 1: Loop checkRandomNegatives = Arr(I) < 0 End Function Sub startSearch() 'The selection should be a single contiguous range in a single column. _ The first cell indicates the number of solutions wanted. Specify zero for all. _ The 2nd cell is the target value. _ The rest of the cells are the values available for matching. _ The output is in the column adjacent to the one containing the input data. If Not TypeOf Selection Is Range Then GoTo ErrXIT If Selection.Areas.Count > 1 Or Selection.Columns.Count > 1 Then GoTo ErrXIT If Selection.Rows.Count < 3 Then GoTo ErrXIT Dim TargetVal, Rslt(), InArr(), StartTime As Date, MaxSoln As Integer, _ HaveRandomNegatives As Boolean StartTime = Now() MaxSoln = Selection.Cells(1).Value TargetVal = Selection.Cells(2).Value InArr = Application.WorksheetFunction.Transpose( _ Selection.Offset(2, 0).Resize(Selection.Rows.Count - 2).Value) HaveRandomNegatives = checkRandomNegatives(InArr) If Not HaveRandomNegatives Then ElseIf MsgBox("At least 1 negative number is present between positive numbers" _ & vbNewLine _ & "It may take a lot longer to search for matches." & vbNewLine _ & "OK to continue else Cancel", vbOKCancel) = vbCancel Then Exit Sub End If ReDim Rslt(0) recursiveMatch MaxSoln, TargetVal, InArr, HaveRandomNegatives, _ LBound(InArr), 0, 0.00000001, _ Rslt, "", ", " Rslt(UBound(Rslt)) = Format(Now, "hh:mm:ss") ReDim Preserve Rslt(UBound(Rslt) + 1) Rslt(UBound(Rslt)) = Format(StartTime, "hh:mm:ss") Selection.Offset(0, 1).Resize(ArrLen(Rslt), 1).Value = _ Application.WorksheetFunction.Transpose(Rslt) Exit Sub ErrXIT: MsgBox "Please select cells in a single column before using this macro" & vbNewLine _ & "The selection should be a single contiguous range in a single column." & vbNewLine _ & "The first cell indicates the number of solutions wanted. Specify zero for all." & vbNewLine _ & "The 2nd cell is the target value." & vbNewLine _ & "The rest of the cells are the values available for matching." & vbNewLine _ & "The output is in the column adjacent to the one containing the input data." End Sub __________________ "Five stinking radicals in a three cylinder Saab!"
09-02-2012, 05:18 PM   #12336
bikeridermark

Joined: Nov 2008
Location: Southern Ohio
Oddometer: 2,363
Quote:
 Originally Posted by vivid dadas Option Explicit Function RealEqual(A, B, Optional Epsilon As Double = 0.00000001) RealEqual = Abs(A - B) <= Epsilon End Function Function ExtendRslt(CurrRslt, NewVal, Separator) If CurrRslt = "" Then ExtendRslt = NewVal _ Else ExtendRslt = CurrRslt & Separator & NewVal End Function Sub recursiveMatch(ByVal MaxSoln As Integer, ByVal TargetVal, InArr(), _ ByVal HaveRandomNegatives As Boolean, _ ByVal CurrIdx As Integer, _ ByVal CurrTotal, ByVal Epsilon As Double, _ ByRef Rslt(), ByVal CurrRslt As String, ByVal Separator As String) Dim I As Integer For I = CurrIdx To UBound(InArr) If RealEqual(CurrTotal + InArr(I), TargetVal, Epsilon) Then Rslt(UBound(Rslt)) = (CurrTotal + InArr(I)) _ & Separator & Format(Now(), "hh:mm:ss") _ & Separator & ExtendRslt(CurrRslt, I, Separator) If MaxSoln = 0 Then If UBound(Rslt) Mod 100 = 0 Then Debug.Print "Rslt(" & UBound(Rslt) & ")=" & Rslt(UBound(Rslt)) Else If UBound(Rslt) >= MaxSoln Then Exit Sub End If ReDim Preserve Rslt(UBound(Rslt) + 1) ElseIf IIf(HaveRandomNegatives, False, CurrTotal + InArr(I) > TargetVal + Epsilon) Then ElseIf CurrIdx < UBound(InArr) Then recursiveMatch MaxSoln, TargetVal, InArr(), HaveRandomNegatives, _ I + 1, _ CurrTotal + InArr(I), Epsilon, Rslt(), _ ExtendRslt(CurrRslt, I, Separator), _ Separator If MaxSoln <> 0 Then If UBound(Rslt) >= MaxSoln Then Exit Sub Else 'we've run out of possible elements and we _ still don't have a match End If Next I End Sub Function ArrLen(Arr()) As Integer On Error Resume Next ArrLen = UBound(Arr) - LBound(Arr) + 1 End Function Function checkRandomNegatives(Arr) As Boolean Dim I As Long I = LBound(Arr) Do While Arr(I) < 0 And I < UBound(Arr): I = I + 1: Loop If I = UBound(Arr) Then Exit Function Do While Arr(I) >= 0 And I < UBound(Arr): I = I + 1: Loop checkRandomNegatives = Arr(I) < 0 End Function Sub startSearch() 'The selection should be a single contiguous range in a single column. _ The first cell indicates the number of solutions wanted. Specify zero for all. _ The 2nd cell is the target value. _ The rest of the cells are the values available for matching. _ The output is in the column adjacent to the one containing the input data. If Not TypeOf Selection Is Range Then GoTo ErrXIT If Selection.Areas.Count > 1 Or Selection.Columns.Count > 1 Then GoTo ErrXIT If Selection.Rows.Count < 3 Then GoTo ErrXIT Dim TargetVal, Rslt(), InArr(), StartTime As Date, MaxSoln As Integer, _ HaveRandomNegatives As Boolean StartTime = Now() MaxSoln = Selection.Cells(1).Value TargetVal = Selection.Cells(2).Value InArr = Application.WorksheetFunction.Transpose( _ Selection.Offset(2, 0).Resize(Selection.Rows.Count - 2).Value) HaveRandomNegatives = checkRandomNegatives(InArr) If Not HaveRandomNegatives Then ElseIf MsgBox("At least 1 negative number is present between positive numbers" _ & vbNewLine _ & "It may take a lot longer to search for matches." & vbNewLine _ & "OK to continue else Cancel", vbOKCancel) = vbCancel Then Exit Sub End If ReDim Rslt(0) recursiveMatch MaxSoln, TargetVal, InArr, HaveRandomNegatives, _ LBound(InArr), 0, 0.00000001, _ Rslt, "", ", " Rslt(UBound(Rslt)) = Format(Now, "hh:mm:ss") ReDim Preserve Rslt(UBound(Rslt) + 1) Rslt(UBound(Rslt)) = Format(StartTime, "hh:mm:ss") Selection.Offset(0, 1).Resize(ArrLen(Rslt), 1).Value = _ Application.WorksheetFunction.Transpose(Rslt) Exit Sub ErrXIT: MsgBox "Please select cells in a single column before using this macro" & vbNewLine _ & "The selection should be a single contiguous range in a single column." & vbNewLine _ & "The first cell indicates the number of solutions wanted. Specify zero for all." & vbNewLine _ & "The 2nd cell is the target value." & vbNewLine _ & "The rest of the cells are the values available for matching." & vbNewLine _ & "The output is in the column adjacent to the one containing the input data." End Sub

Quite a mouthful, there, vivid! Does that add up to ten?

 09-02-2012, 05:21 PM #12337 vivid dadas Studly Adventurer     Joined: Dec 2009 Location: Thumbolia Oddometer: 865 Supposed to be the Excel macro that finds a combination of numbers that equals a given sum. __________________ "Five stinking radicals in a three cylinder Saab!"
09-02-2012, 06:36 PM   #12338
jimjim
Just another FF!

Joined: Feb 2010
Location: oHIo
Oddometer: 1,751
Quote:
 Originally Posted by vivid dadas Supposed to be the Excel macro that finds a combination of numbers that equals a given sum.
Thanks but I think I'll just get the map out.

09-02-2012, 06:59 PM   #12339
MeefZah
Curmudgeonly

Joined: Nov 2003
Oddometer: 10,993
Quote:
 Originally Posted by vivid dadas Option Explicit Function RealEqual(A, B, Optional Epsilon As Double = 0.00000001) RealEqual = Abs(A - B) <= Epsilon End Function Function ExtendRslt(CurrRslt, NewVal, Separator) If CurrRslt = "" Then ExtendRslt = NewVal _ Else ExtendRslt = CurrRslt & Separator & NewVal End Function Sub recursiveMatch(ByVal MaxSoln As Integer, ByVal TargetVal, InArr(), _ ByVal HaveRandomNegatives As Boolean, _ ByVal CurrIdx As Integer, _ ByVal CurrTotal, ByVal Epsilon As Double, _ ByRef Rslt(), ByVal CurrRslt As String, ByVal Separator As String) Dim I As Integer For I = CurrIdx To UBound(InArr) If RealEqual(CurrTotal + InArr(I), TargetVal, Epsilon) Then Rslt(UBound(Rslt)) = (CurrTotal + InArr(I)) _ & Separator & Format(Now(), "hh:mm:ss") _ & Separator & ExtendRslt(CurrRslt, I, Separator) If MaxSoln = 0 Then If UBound(Rslt) Mod 100 = 0 Then Debug.Print "Rslt(" & UBound(Rslt) & ")=" & Rslt(UBound(Rslt)) Else If UBound(Rslt) >= MaxSoln Then Exit Sub End If ReDim Preserve Rslt(UBound(Rslt) + 1) ElseIf IIf(HaveRandomNegatives, False, CurrTotal + InArr(I) > TargetVal + Epsilon) Then ElseIf CurrIdx < UBound(InArr) Then recursiveMatch MaxSoln, TargetVal, InArr(), HaveRandomNegatives, _ I + 1, _ CurrTotal + InArr(I), Epsilon, Rslt(), _ ExtendRslt(CurrRslt, I, Separator), _ Separator If MaxSoln <> 0 Then If UBound(Rslt) >= MaxSoln Then Exit Sub Else 'we've run out of possible elements and we _ still don't have a match End If Next I End Sub Function ArrLen(Arr()) As Integer On Error Resume Next ArrLen = UBound(Arr) - LBound(Arr) + 1 End Function Function checkRandomNegatives(Arr) As Boolean Dim I As Long I = LBound(Arr) Do While Arr(I) < 0 And I < UBound(Arr): I = I + 1: Loop If I = UBound(Arr) Then Exit Function Do While Arr(I) >= 0 And I < UBound(Arr): I = I + 1: Loop checkRandomNegatives = Arr(I) < 0 End Function Sub startSearch() 'The selection should be a single contiguous range in a single column. _ The first cell indicates the number of solutions wanted. Specify zero for all. _ The 2nd cell is the target value. _ The rest of the cells are the values available for matching. _ The output is in the column adjacent to the one containing the input data. If Not TypeOf Selection Is Range Then GoTo ErrXIT If Selection.Areas.Count > 1 Or Selection.Columns.Count > 1 Then GoTo ErrXIT If Selection.Rows.Count < 3 Then GoTo ErrXIT Dim TargetVal, Rslt(), InArr(), StartTime As Date, MaxSoln As Integer, _ HaveRandomNegatives As Boolean StartTime = Now() MaxSoln = Selection.Cells(1).Value TargetVal = Selection.Cells(2).Value InArr = Application.WorksheetFunction.Transpose( _ Selection.Offset(2, 0).Resize(Selection.Rows.Count - 2).Value) HaveRandomNegatives = checkRandomNegatives(InArr) If Not HaveRandomNegatives Then ElseIf MsgBox("At least 1 negative number is present between positive numbers" _ & vbNewLine _ & "It may take a lot longer to search for matches." & vbNewLine _ & "OK to continue else Cancel", vbOKCancel) = vbCancel Then Exit Sub End If ReDim Rslt(0) recursiveMatch MaxSoln, TargetVal, InArr, HaveRandomNegatives, _ LBound(InArr), 0, 0.00000001, _ Rslt, "", ", " Rslt(UBound(Rslt)) = Format(Now, "hh:mm:ss") ReDim Preserve Rslt(UBound(Rslt) + 1) Rslt(UBound(Rslt)) = Format(StartTime, "hh:mm:ss") Selection.Offset(0, 1).Resize(ArrLen(Rslt), 1).Value = _ Application.WorksheetFunction.Transpose(Rslt) Exit Sub ErrXIT: MsgBox "Please select cells in a single column before using this macro" & vbNewLine _ & "The selection should be a single contiguous range in a single column." & vbNewLine _ & "The first cell indicates the number of solutions wanted. Specify zero for all." & vbNewLine _ & "The 2nd cell is the target value." & vbNewLine _ & "The rest of the cells are the values available for matching." & vbNewLine _ & "The output is in the column adjacent to the one containing the input data." End Sub
__________________
"A man turns his back on the comforts of home, and when the dust all settles and the story is told, history is made by the side of the road..." - DBT

 09-02-2012, 07:09 PM #12340 vivid dadas Studly Adventurer     Joined: Dec 2009 Location: Thumbolia Oddometer: 865 It's not my tag, (even though I was "tagging" along,) so I can't really give a hint. I know where it is, so I'll refrain from tagging it. I will observe that 1+4+5 =10, but I also think this tag isn't in a county with the same name as someone well known for singing "Happy Birthday Mr President" to JFK unless there's a singer named Noble who later married Joe DiMaggio that I don't know about. __________________ "Five stinking radicals in a three cylinder Saab!"
 09-03-2012, 06:02 AM #12341 MeefZah Curmudgeonly     Joined: Nov 2003 Location: New Philadelphia, Ohio Oddometer: 10,993 SR 145 in Noble County, named after President Noble. His greatest achievement, as we all know, was restarting the reactor on Mars, giving free air to it's long oppressed people. __________________ "A man turns his back on the comforts of home, and when the dust all settles and the story is told, history is made by the side of the road..." - DBT My Smugmug Galleries MeefZah screwed with this post 09-03-2012 at 06:09 AM
 09-03-2012, 06:17 AM #12342 bikeridermark Beastly Adventurer   Joined: Nov 2008 Location: Southern Ohio Oddometer: 2,363 Is he the one that sang Happy Birthday to Marilyn?
 09-03-2012, 06:20 AM #12343 MeefZah Curmudgeonly     Joined: Nov 2003 Location: New Philadelphia, Ohio Oddometer: 10,993 Next up is this sign, on a 3 digit state route, near an unincorporated community whose name always makes me think of an orgasm. No, not Elizabethberkleyville. It's also right across a county road from a cemetery. __________________ "A man turns his back on the comforts of home, and when the dust all settles and the story is told, history is made by the side of the road..." - DBT My Smugmug Galleries
09-03-2012, 06:24 AM   #12344
MeefZah
Curmudgeonly

Joined: Nov 2003
Oddometer: 10,993
Quote:
 Originally Posted by bikeridermark Is he the one that sang Happy Birthday to Marilyn?
That was "Pimp" Rufus Noble, officially no relation; though historians have long surmised that President Noble banged Rufus's slave great grandmother on his plantation, Mt. Bernon, thus siring a second family that was half black and all awesome.
__________________
"A man turns his back on the comforts of home, and when the dust all settles and the story is told, history is made by the side of the road..." - DBT

09-03-2012, 06:32 AM   #12345
McTacticool
Importer/Exporter

Joined: Feb 2012
Location: VanDelay Industries, Ohio
Oddometer: 254
Quote:
 Originally Posted by MeefZah SR 145 in Noble County, named after President Noble. His greatest achievement, as we all know, was restarting the reactor on Mars, giving free air to it's long oppressed people.
I thought President Noble, and Vice President Muskingum, established "THE BUSINESS THEORY WHICH EXPLAINS THAT BUSINESSES CAN'T GIVE MERCHANDISE AWAY, AND THAT PEOPLE NEGATIVELY AFFECT THE ECONOMIC CONTRACT PRESUMED BY THE BUSINESS BY (PEOPLE) TRYING TO TAKE STORE ITEMS WITHOUT RECIPROCATING BY GIVING THE BUSINESS THE FAIR MARKET VALUE OF SAID ITEMS."
No?

 Share