Sampson Lake
Sampson Lake in West Canada Wilderness as seen from Pillsbury Mountain.
Taken on Saturday July 31, 2010 at Pillsbury Mountain.
Tonight at Sunset – July 25, 2022
Tonight at Sunset ð
At sunset, look for partly clear skies ð and temperatures around 76 degrees. The dew point will be 59 degrees. There will be a northwest breeze at 9 mph.
Solar noon ð is at 1:03 pm with sun having an altitude of 67° from the due south horizon (-3.8° vs. 6/21). A six foot person will cast a 2.5 foot shadow today compared to 2.2 feet on the first day of summer. The golden hour ð starts at 7:43 pm with the sun in the west-northwest (291°). ðļ The sunset is in the west-northwest (298°) with the sun dropping below the horizon at 8:24 pm after setting for 3 minutes and 16 seconds with dusk around 8:55 pm, which is 58 seconds earlier than yesterday. ð The best time to look at the stars is after 9:38 pm.
Tonight will have a Waining Crescent ð Moon with 9% illuminated. At 6 AM, the moon was in the east (84°) at an altitude of 34° from the horizon, some 251,670 miles away from where you are looking up from the earth. ð At the state speed limit of 55 mph, you’ll make it there by February 1st. Buckle up for safety! ðš The moon will set in the borthwest (308°) at 6:42 pm. The Strugeon ðĄ Moon is on Tuesday, August 9.
Weather Update – July 25, 2022
Some brief relief âšïļ
The emphasis is brief relief tonight into tomorrow. Wednesday won’t be too hot and humid but then the muggers will return for Thursday into my vacation. But slowly but surely I’m creeping towards vacation, and if it’s hot and humid, I’ll just spend a lot of time in various gorges and pools swimming out in the Finger Lakes. I am not inclined to bring my kayak, though that could change as time goes by. That said, it seems like the heat wave is done for now. It wasn’t a particularly nice weekend gone by with the heat.
It’s gotten late enough into the year now, we’ve switched to comparing to autumn days to spring days — so a cool day might be expressed now in how much things feel like late August or early September. We also have lost a noticeable amount of time — 13 minutes in the evening, and will daylight quicker as August proceeds. That said, all
| Today. Muggy ! |
|
Showers and thunderstorms before 10am, then showers likely and possibly a thunderstorm between 10am and noon, then a chance of showers and thunderstorms after noon. Some of the storms could produce gusty winds and heavy rain. South wind 8 to 13 mph becoming west in the afternoon. Chance of precipitation is 80%. New rainfall amounts of less than a tenth of an inch, except higher amounts possible in thunderstorms.
|
86 degrees | 71 max dew point | 8:24 sunset |
| Tonight. Feels like … August 26th. |
|
Mostly clear. Northwest wind 5 to 9 mph becoming calm after midnight.
|
59 degrees | 5:39 sunrise |
|
| Tuesday. Feels like … August 14th. |
|
Mostly sunny. West wind 3 to 8 mph.
|
82 degrees | 58 max dew point | 8:23 sunset |
| Tuesday Night. Feels like … August 30th. |
|
Mostly clear. Northwest wind around 6 mph becoming calm in the evening.
|
58 degrees | 5:40 sunrise |
|
| Wednesday. Hot ! |
|
Mostly sunny. Calm wind becoming south around 5 mph in the afternoon.
|
85 degrees | 60 max dew point | 8:22 sunset |
| Wednesday Night. Muggy ! |
|
A slight chance of showers. Mostly cloudy. Chance of precipitation is 20%.
|
65 degrees | 65 max dew point | 5:41 sunrise |
| Thursday. Muggy ! |
|
A chance of showers and thunderstorms after 2pm. Mostly sunny. Chance of precipitation is 30%.
|
88 degrees | 68 max dew point | 8:21 sunset |
| Thursday Night. Hot ! |
|
A chance of showers and thunderstorms before 8pm. Mostly cloudy. Chance of precipitation is 30%.
|
65 degrees | 64 max dew point | 5:42 sunrise |
| Friday. Feels like … July 15th. |
|
A chance of showers. Mostly sunny. Chance of precipitation is 30%.
|
84 degrees | 65 max dew point | 8:20 sunset |
| Friday Night. Feels like … August 20th. |
|
Mostly clear.
|
60 degrees | 5:44 sunrise |
|
| Saturday. Feels like … July 15th. |
|
Mostly sunny.
|
84 degrees | 60 max dew point | 8:19 sunset |
| Saturday Night. Feels like … August 20th. |
|
Mostly clear.
|
60 degrees | 5:45 sunrise |
|
| Sunday. Hot ! |
|
Sunny.
|
88 degrees | 61 max dew point | 8:18 sunset |
Spend a good portion of yesterday exploring code for finding peaks in a digital elevation model
Spend a good portion of yesterday exploring code for finding peaks in a digital elevation model. I tried a few different methods, one searching for highest points within the x and y axis, looking for inclines and declines, and picking the points in the middle, but that found significantly more points then desired as it seems there is a lot of small up and downs in the elevation, even if they aren’t the actual summit.
What I ended up settling on was this code, that first finds the highest point in the DEM, then deletes all points within 100 meters in all directions from a copy of the DEM then recurvisely calls the function. This works fairly well, although it is memory intensive after about 10 calls, as you are making a lot of copies of DEM in memory. But it seems to work well, assuming you set a reasonable size for the buffer based on the size of the mountain.
library(tidyverse)
library(terra)
library(units)
library(sf)
rm(list=ls())
dem <- rast('/tmp/merge_5925072950_2_meter.tif')
demdf <- as.data.frame(dem, xy=T) %>%
mutate(Layer_1 = Layer_1 %>% set_units('m') %>% set_units('ft')) %>% drop_units()
dems <- aggregate(dem, fact=4)
demsdf <- as.data.frame(dems, xy=T) %>%
mutate(Layer_1 = Layer_1 %>% set_units('m') %>% set_units('ft')) %>% drop_units()
findPeaks <- function(df, size=100, n=5, peakdf=NA) {
dfp <- df
newPeak <- dfp %>% slice_max(Layer_1)
ifelse(is.na(peakdf), peakdf <- newPeak, peakdf <- rbind(peakdf, newPeak))
dfp <-
dfp %>%
filter( !(between(x, newPeak[1,1]-size, newPeak[1,1]+size) &
between(y, newPeak[1,2]-size, newPeak[1,2]+size)))
if (nrow(peakdf) >= n) {
return(peakdf)
}
else {
findPeaks(dfp, size, n, peakdf)
}
}
findPeaks(demdf, 300, 10) %>%
st_as_sf(coords=c('x', 'y'), crs=26918, agr = "constant") %>%
ggplot() +
geom_raster(data=demsdf, aes(x=x, y=y, fill=Layer_1)) +
geom_sf(color='white') +
ggsflabel::geom_sf_label_repel(aes(label=floor(Layer_1)))
NPR
If you've shopped online recently, you may have had this experience: You find an item, add it to your cart, and then when you get around to paying, the price has increased.
You can thank pricing algorithms.
These are computer programs that look at factors such as supply, demand and the prices competitors are charging, and then adjust the price in real time. Now, there are calls for greater regulation at a time when these tactics are expected to become more common.
Daily Update – July 25, 2022
Good morning! The Monday before vacation. ð
It seems like that thunderstorm was gone before it barely even started. It was so quick, enough for me to cancel my morning walk, though what for I’m not sure. I did step outside for a while before the thunderstorm and the nice cool breeze was nice. But now it’s just humid, damp and yucky.
Rain and a very brief thunderstorm and 72 degrees in Delmar, NY. â There is a south breeze at 8 mph. ð. The dew point is 68 degrees. The skies will clear around 4 pm.
Kind of a muggy, cloudy, icky morning. ð§ Maybe not quite as hot and humid as yesterday, but still hardly nice. That said, yesterday was pretty much awful, I ended up staying home next to either the fan by my computer or laying on my bed. Learned a lot of new techniques though for manipulating geo-spatial data ð in R — I actually posted that peak finding algorithm I developed yesterday early this morning.
Dropping Big Red off this morning to have the wheel bearing put in. ð§ Most of the noise was the loose hub cap, but I’m still pretty sure that bearing is on its way out too. ðŧ Worth it to get fixed for peace of mind — which ain’t free. ðĪŠ It would cost a lot more if I burned it up on vacation and had to get towed. I know what a bad wheel bearing sounds like from recent experience, and while it might not be grinding yet or the wheel falling clear off the truck, it’s clearly on it’s way to getting that point with the squeaking the curves and when abused. I make good money, and keeping the truck running well is better then having to buy a new one.
I should have my truck by mid-day I’m hoping so I can get it at lunch time, and hopefully not have to leave work early today. ð It was stupid to leave work early on Friday, as I never ended up even driving my truck over the weekend, as it was hot — and I didn’t go anywhere because of the wheel bearing but mostly because it was hot and my parents didn’t have power yesterday due to a heat-related black out. Never lost power at my house. ð
Other then that, I want to take the relief from the heat and humidity over the next few days ð to get ready for vacation. My goal is to have everything packed Thursday night, run to the laundromat and be rolling by Friday morning by 7 AM. I want to top off my propane tank, ðŪ as it’s been a few camping trip since I last filled it but I am thinking I can do that along the way, maybe in Greene, NY. I would do Oneonta, but I the Tractor Supply is ways off the expressway. I might stop in Oneonta though to go to Dicks as have a gift card and want to buy another cast iron frying pan.
That said, I don’t want to make too many stops on my way out to the Finger Lakes, ð as my goal is to get there early and set up camp where I want to stay both weekends. The earlier I leave the more likely I get the campsite I truly want before the after-work crowd arrives for the weekend. I just want to be all set for the weekend, have camp fully set up and can relax. Saturday I want to have all day, especially if it’s hot to spend swimming ðâïļ and taking advantage of ice cream ðĶ and other activities. Already thinking about what I will eat at the Glen Dairy Bar.
All and all, there really isn’t much in Podunk, NY.
