## January 3, 2007

### A Nice Programming Introduction Course

Computer Science @ Princeton
http://www.cs.princeton.edu/introcs/home/

Posted by sunx0170 at 1:14 PM | Comments (1) | Resources & Links

## June 18, 2006

### Moto User Forum

I Love Moto
http://www2.52moto.cn/dispbbs.asp?boardID=207&ID=31086&page=1

Posted by sunx0170 at 4:41 PM | Comments (2)

## May 23, 2006

### Legal Problems about Condomunium Property Rights

http://www.e-condolaw.com/

Posted by sunx0170 at 1:05 PM | Comments (1)

## April 29, 2006

### Wu Lin

Posted by sunx0170 at 2:47 PM | Comments (0) | Resources & Links

## April 17, 2006

### NHGIS: National Historical Geographic Information System

National Historical Geographic Information System: NHGIS

County Data - Pre-release Versions

Posted by sunx0170 at 5:06 PM | Comments (0)

## March 17, 2006

Posted by sunx0170 at 1:48 PM | Comments (0)

## January 6, 2006

### Projection and Coordinate Systems

POSC's introduction to Projection and Coordinate Systems

http://www.posc.org/Epicentre.2_2/DataModel/ExamplesofUsage/eu_cs.html

Posted by sunx0170 at 2:00 PM | Comments (437) | Programming Tips

### Calculating Area for Geographically Projected Data

Excerpted from ESRI's developers' Forum.

Public Function DoReturnArea(pMap As IMap, pGeomUnion As IGeometry) As Double
'-----------------------------------------
' Declare Variables
'-----------------------------------------
Dim pEnv As IEnvelope
Dim pCenterPt As IPoint
Dim pEllipticArc As IEllipticArc
Dim pNewSpatRef As ISpatialReference
Dim pSpatRefFact As ISpatialReferenceFactory

Dim pProjection As IProjection
Dim pGCS As IGeographicCoordinateSystem
Dim pUnit As IUnit
Dim pLinearUnit As ILinearUnit

' Create a projected coordinate system using the Define method.
Dim pProjCoordSysEdit As IProjectedCoordinateSystemEdit
Dim pProjCoordSys As IProjectedCoordinateSystem

' Create a SpatialReference.
Dim pSpRef1 As ISpatialReference
Dim pSpat As ISpatialReference
Dim pArea As IArea
Dim pSpatialRef As ISpatialReference

'-----------------------------------------
' Initalize Variables
'-----------------------------------------
Set pCenterPt = New Point
Set pSpatRefFact = New SpatialReferenceEnvironment

'-----------------------------------------
' Find the Center Point
'-----------------------------------------
Set pEnv = pGeomUnion.Envelope
Set pEllipticArc = CreateEArcFull(pEnv)
If Not pEllipticArc Is Nothing Then
Set pCenterPt = pEllipticArc.CenterPoint
End If

'------------------------------------------------------------------
'Calculate area in acres.
'Use an Equal Area Azimuthal projection centered at the center of
'polygon feature in order to get the true area of the polygon.
'------------------------------------------------------------------
Set pSpatialRef = pMap.SpatialReference
'Create a projection, gcs and unit using the factory
Set pProjection = pSpatRefFact.CreateProjection(esriSRProjection_LambertAzimuthal)
Set pGCS = pSpatRefFact.CreateGeographicCoordinateSystem(esriSRGeoCS_Clarke1866)
Set pUnit = pSpatRefFact.CreateUnit(esriSRUnit_Meter)

' The IProjectedCoordinateSystem::Define method requires a LinearUnit.
' We can simply QI for it here.
Set pLinearUnit = pUnit

' CoCreate the object.
Set pProjCoordSysEdit = New ProjectedCoordinateSystem

'Call the Define method.
pProjCoordSysEdit.Define "UserDefinedPCS", _
"UserDefinedAlias", _
"UsrDefAbbrv", _
"", _
"", _
pGCS, _
pLinearUnit, _
pProjection

' QI for the PCS.
Set pProjCoordSys = pProjCoordSysEdit
If Not pCenterPt Is Nothing Then
If Not pCenterPt.IsEmpty Then
pProjCoordSys.CentralMeridian(True) = pCenterPt.x
End If
End If

Set pSpRef1 = pProjCoordSys
Set pSpat = pMap.SpatialReference

If Not pGeomUnion Is Nothing Then
Set pGeomUnion.SpatialReference = pSpatRefFact.CreateGeographicCoordinateSystem(esriSRGeoCS_AssumedGeographic1) 'pGCS 'pMxDoc.FocusMap.SpatialReference'pSpat
pGeomUnion.Project pSpRef1
Set pArea = pGeomUnion
'------------------------------------------------------------------
' Convert from Square Meters to Acres by divided number with 4047.
'------------------------------------------------------------------
DoReturnArea = (pArea.Area) / 4047
End If
End Function

Public Function CreateEArcFull(pEnv As IEnvelope) As IEllipticArc
On Error GoTo Handler
' If pEnv Is Nothing Then Exit Function

Dim pConstEArc As IConstructEllipticArc
Set pConstEArc = New EllipticArc
pConstEArc.ConstructEnvelope pEnv
Set CreateEArcFull = pConstEArc

'Release Objects
Set pConstEArc = Nothing
Exit Function
Handler:
Set CreateEArcFull = Nothing
End Function

Sirikarn Tantipanarat
==========================
Eagle Information Mapping, Inc.
14825 St. Mary's Lane, Suite 200
Houston, Texas 77079
www.eaglemap.com

Posted by sunx0170 at 1:57 PM | Comments (0) | Programming Tips

## January 5, 2006

### Interesting Study on "Personality"

Very interesting, though kinda intimidating

http://www.144000.net/reinscie.htm
http://www.healthsystem.virginia.edu/internet/personalitystudies/
http://www.sinor.ru/~che/birthmarks.htm

Posted by sunx0170 at 1:33 AM | Comments (5) | What's in your mind

## January 3, 2006

### Graph Drawing

Infovis Infrastructures at Indiana Unversity
http://iv.slis.indiana.edu/sw/spring.html

GraphViz - Graph Visualization Software
http://www.graphviz.org/

Posted by sunx0170 at 12:58 PM | Comments (1) | Resources & Links