Posts

Showing posts from 2015

Android: GPS positioning and location strategies

802.15.4a cisco ranging to wifi router discussion:  http://grizzlyanalytics.blogspot.com/2013/10/decawave-high-accuracy-indoor-location.html Android: GPS positioning and location strategies - codecentric Blog : codecentric Blog Trilateration from RV Miller:  RV Miller Trilaterations Arduino wifi triangulation search:  arduino triangulation emitter wifi - Google Search Android Developer:  http://developer.android.com/guide/topics/location/strategies.html http://developer.android.com/guide/topics/location/strategies.html#BestPerformance WIKI:  https://en.wikipedia.org/wiki/Wi-Fi_positioning_system

Nifty "Cube" sensors monitor basic aspects of indoor air quality and noise

https://cubesensors.com/

Fundamental equations for perspective

http://www.cfar.umd.edu/~daniel/daniel_papersfordownload/Pose25Lines.pdf

Redpin - IOpen source wifi triangulation

Redpin - Indoor Positioning for the Rest of Us
http://dictionary.reference.com/browse/lassitude?s=t

Mobile Site Previewer for werehauser

http://m.woodbywy.com/?utm_source=Webinar+reminder%3A+Forte+linked+to+Revit+with+MWF+Advanced&utm_campaign=Forte+reminder+Webinar+Nov&utm_medium=email&url=http%3A%2F%2Fwww.woodbywy.com%2Fsoftware%2Fforte-software%2F%3Futm_source%3DWebinar%2Breminder%253A%2BForte%2Blinked%2Bto%2BRevit%2Bwith%2BMWF%2BAdvanced%26utm_campaign%3DForte%2Breminder%2BWebinar%2BNov%26utm_medium%3Demail&utm_referrer=#2652

Arduino Mega 2560 R3 (Atmega2560 - assembled) [Mega!] ID: 191 - $45.95 : Adafruit Industries, Unique & fun DIY electronics and kits

Image
Arduino Mega 2560 R3 (Atmega2560 - assembled) [Mega!] ID: 191 - $45.95 : Adafruit Industries, Unique & fun DIY electronics and kits

360 Degree Laser Scanner Development Kit (RPLIDAR)

Image
360 Degree Laser Scanner Development Kit (RPLIDAR)

RPLIDAR now supports ROS and Arduino!

Image
RPLIDAR now supports ROS and Arduino!

ROS.org | Powering the world's robots

ROS.org | Powering the world's robots

Pozyx - centimeter positioning for arduino

Image
Pozyx - centimeter positioning for arduino

location tracking | Hackaday

location tracking | Hackaday

New Part Day: Indoor Location Systems | Hackaday

Image
New Part Day: Indoor Location Systems | Hackaday

Blog | Bitcraze

Image
Blog | Bitcraze

planning building control today now, an article on the housing shortage in the UK, and the upcoming BIM level implementation in n the UK.

https://www.linkedin.com/pulse/planning-building-control-today-now-live-glyn-jackson?_mSplash=1

Eric Wing's structural family training on lynda.com

https://www.linkedin.com/pulse/structuralrevit-families-eric-wing?forceNoSplash=true

Augmented reality tools SDK changes

http://thearea.org/augmented-reality-developer-options-after-metaio/

Selecting a Range of Cells Relative to the Current Cell (Microsoft Excel)

Selecting a Range of Cells Relative to the Current Cell (Microsoft Excel) Range(Cells(Selection.Row, 1), Cells(Selection.Row, 3)).Select

Preventing Problems With Worksheet Renaming

Preventing Problems With Worksheet Renaming ThisWorkbook.VBProject.VBComponents("Sheet1").Name = "SummarySheet" Renames the object value of the worksheet. Comes in handy and streamlines the code. I suspect VBA needs programmatic access to teh project model which can be solved here: ''RESOLUTION ''For any Automation client to be able to access the VBA object model programmatically, the user running the code must explicitly ''grant access. To turn on access, the user must follow these steps. '' ''Office 2003 and Office XP ''Open the Office 2003 or Office XP application in question. On the Tools menu, click Macro, and ''then click Security to open the Macro Security dialog box. '' ''On the Trusted Sources tab, click to select the Trust access to Visual Basic Project check box to turn on access. ''Click OK to apply the setting. You may need to restart the application for the

Folder Maker and shortcut creater AND REcurse Checker

MODULE FOLDER MAKER Option Explicit Private fso As New FileSystemObject Dim RecurseCheck As New recurselimit Dim WSH As WshShell Public Sub CreateFolderStructure () Set WSH = CreateObject( "WScript.Shell" ) ''WshShell ''Set lnk = CreateObject("WScript.Shell") ''As WshShortcut RecurseCreateFolders "00-ROOT" ''entry point iis to pass name of root sheet to recursive process ''Set lnk = Nothing Set WSH = Nothing MsgBox "DONE" End Sub Private Sub RecurseCreateFolders ( ByVal strWSSub As String , Optional ByVal strFPpfix As String ) '', Optional FN As String, Optional XCUT As String) Dim lastrow As Integer Dim I Dim strFP As String If strWSSub <> "00-ROOT" And RecurseCheck.LimitReached(strWSSub) Then Exit Sub If strFPpfix > "" Then If Right(strFPpfix, 1 ) <&g

Software Inventory Excel VBA

Option Explicit ''original source from '''http://www.mrexcel.com/forum/excel-questions/535773-list-softwares-installed-excel-using-visual-basic-applications.html ''updated by Ron E. Allen Private sFileName As String Private StrComputer As String Private Const MAX_COMPUTERNAME_LENGTH As Long = 31 Private Declare PtrSafe Function GetComputerName Lib "kernel32" _ Alias "GetComputerNameA" ( ByVal lpBuffer As String , nSize As Long ) As Long Public sCompName As String Public strDomain As String Sub GetInstalledSoftware() 'Dim sTitle As String Dim s As String Dim wsh As New WshShell 'sTitle = "You are about to retrieve the software installed on your computer." 'MsgBox sTitle StrComputer = GetCompName If StrComputer = vbNullString Then Exit Sub StrComputer = Trim(StrComputer) If StrComputer = "" Then StrComputer =

Acoustics Modeling | ANSYS e-Learning | CAE Associates - YouTube

Acoustics Modeling | ANSYS e-Learning | CAE Associates - YouTube

Acoustic sound simulation in Revit: Enscape™ Tutorial - YouTube

Looks interesting for rough acoustic evaluation in Revit... Acoustic sound simulation in Revit: Enscape™ Tutorial - YouTube

Swatch ng for strong joins for a bed.

https://woodgears.ca/mortise/strong.html

Project soane

http://projectsoane.com/
Work Breakout table formatter Option Explicit Sub Table_Format_bottom_right()     Dim objTable As Table     Dim I As Integer          Set objTable = Selection.Tables(1)          With objTable         ''Padding to 0         .TopPadding = InchesToPoints(0)         .BottomPadding = InchesToPoints(0)         .LeftPadding = InchesToPoints(0.001)         .RightPadding = InchesToPoints(0)                  ''Format colors         For I = objTable.Columns.Count To 1 Step -1             ''Shading             ShadeMod .Columns(I), I             ShadeMod .Rows(I), I                          ''borders             BDR_NONE objTable.Columns(I).Borders(wdBorderHorizontal)             BDR_NONE objTable.Rows(I).Borders(wdBorderVertical)             BDR_Single objTable.Columns(I).Borders(wdBorderLeft)             BDR_Single objTable.Rows(I).Borders(wdBorderTop)         Next I                  For I = 1 To