ADVrider

Go Back   ADVrider > Riding > Regional forums > Central From Da Nort Woods to the Plane States
User Name
Password
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

Reply
 
Thread Tools Search this Thread Display Modes
Old 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
paulie77 is offline   Reply With Quote
Old 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.
paulie77 is offline   Reply With Quote
Old 09-02-2012, 04:48 PM   #12333
sion
sigh-own
 
sion's Avatar
 
Joined: Jul 2010
Location: Hocking Hills
Oddometer: 3,489
Quote:
Originally Posted by paulie77 View Post


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
sion is offline   Reply With Quote
Old 09-02-2012, 05:06 PM   #12334
paulie77
Gopher
 
Joined: Dec 2011
Location: The Ville
Oddometer: 17
Adds up to 10
paulie77 is offline   Reply With Quote
Old 09-02-2012, 05:15 PM   #12335
vivid dadas
Studly Adventurer
 
vivid dadas's Avatar
 
Joined: Dec 2009
Location: Thumbolia
Oddometer: 864
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!"
vivid dadas is offline   Reply With Quote
Old 09-02-2012, 05:18 PM   #12336
bikeridermark
Beastly Adventurer
 
Joined: Nov 2008
Location: Southern Ohio
Oddometer: 2,059
Quote:
Originally Posted by vivid dadas View Post
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?
bikeridermark is offline   Reply With Quote
Old 09-02-2012, 05:21 PM   #12337
vivid dadas
Studly Adventurer
 
vivid dadas's Avatar
 
Joined: Dec 2009
Location: Thumbolia
Oddometer: 864
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!"
vivid dadas is offline   Reply With Quote
Old 09-02-2012, 06:36 PM   #12338
jimjim
Just another FF!
 
jimjim's Avatar
 
Joined: Feb 2010
Location: oHIo
Oddometer: 1,547
Quote:
Originally Posted by vivid dadas View Post
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.
jimjim is offline   Reply With Quote
Old 09-02-2012, 06:59 PM   #12339
MeefZah
Curmudgeonly
 
MeefZah's Avatar
 
Joined: Nov 2003
Location: New Philadelphia, Ohio
Oddometer: 10,413
Quote:
Originally Posted by vivid dadas View Post
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
"Nerd alert!!!!!!!!!!!!!!!!"
__________________
"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 is offline   Reply With Quote
Old 09-02-2012, 07:09 PM   #12340
vivid dadas
Studly Adventurer
 
vivid dadas's Avatar
 
Joined: Dec 2009
Location: Thumbolia
Oddometer: 864
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!"
vivid dadas is offline   Reply With Quote
Old 09-03-2012, 06:02 AM   #12341
MeefZah
Curmudgeonly
 
MeefZah's Avatar
 
Joined: Nov 2003
Location: New Philadelphia, Ohio
Oddometer: 10,413


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
MeefZah is offline   Reply With Quote
Old 09-03-2012, 06:17 AM   #12342
bikeridermark
Beastly Adventurer
 
Joined: Nov 2008
Location: Southern Ohio
Oddometer: 2,059
Is he the one that sang Happy Birthday to Marilyn?
bikeridermark is offline   Reply With Quote
Old 09-03-2012, 06:20 AM   #12343
MeefZah
Curmudgeonly
 
MeefZah's Avatar
 
Joined: Nov 2003
Location: New Philadelphia, Ohio
Oddometer: 10,413
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
MeefZah is offline   Reply With Quote
Old 09-03-2012, 06:24 AM   #12344
MeefZah
Curmudgeonly
 
MeefZah's Avatar
 
Joined: Nov 2003
Location: New Philadelphia, Ohio
Oddometer: 10,413
Quote:
Originally Posted by bikeridermark View Post
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

My Smugmug Galleries
MeefZah is offline   Reply With Quote
Old 09-03-2012, 06:32 AM   #12345
McTacticool
Importer/Exporter
 
McTacticool's Avatar
 
Joined: Feb 2012
Location: VanDelay Industries, Ohio
Oddometer: 250
Quote:
Originally Posted by MeefZah View Post

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?
McTacticool is offline   Reply With Quote
Reply

Share

Thread Tools Search this Thread
Search this Thread:

.
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is On

Forum Jump


Times are GMT -7.   It's 02:05 AM.


Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Copyright ADVrider 2011-2014