set a001 to abs -10
set a002 to acos -1
set a003 to acosh 10
set a004 to asin 10
set a005 to asinh 10
set a006 to atan 10
set a007 to atan2 {10, 20}
set a008 to atanh 10
set a009 to cbrt 3
set a010 to ceil 0.95
set a011 to clz32 1
set a012 to cos 1
set a013 to cosh 1
set a014 to exp 1
set a015 to expm1 -1
set a016 to floor 45.95
set a017 to fround 1.337
set a018 to hypot {3, 4, 5}
set a019 to lmul {2, 5}
set a020 to logarithm 10
set a021 to log10 2
set a022 to log1p 1
set a023 to log2 3
set a024 to max {1, 2, 3, 4, 6, 2, 10}
set a025 to min {1, 2, 3, 4, 6, 2, 10, 0}
set a026 to pow {7, 2}
set a027 to rnd –random number
set a028 to roundNum 5.95
set a029 to sign 10
set a030 to sin (pi / 2)
set a031 to sinh 1
set a032 to sqrt 2
set a033 to tan 30
set a034 to tanh 10
set a035 to trunc 13.37

set aList to {a001, a002, a003, a004, a005, a006, a007, a008, a009, a010, a011, a012, a013, a014, a015, a016, a017, a018, a019, a020, a021, a022, a023, a024, a025, a026, a027, a028, a029, a030, a031, a032, a033, a034, a035}

set coord1 to {latitude:35.73677496, longitude:139.63754457} –Nakamurabashi Sta.
set coord2 to {latitude:35.78839012, longitude:139.61241447} –Wakoshi Sta.
set dirRes1 to calcDirectionBetweenTwoPlaces(coord1, coord2) of me
–>　　-25.925429877542

set coord2 to {latitude:35.7227821, longitude:139.63860897} –Saginomiya Sta.
set dirRes2 to calcDirectionBetweenTwoPlaces(coord1, coord2) of me
–>　　175.649833487804

set coord2 to {latitude:35.73590542, longitude:139.62986745} –Fujimidai Sta.
set dirRes3 to calcDirectionBetweenTwoPlaces(coord1, coord2) of me
–>　　-96.385293928667

set coord2 to {latitude:35.73785024, longitude:139.65339321} –Nerima Sta.
set dirRes4 to calcDirectionBetweenTwoPlaces(coord1, coord2) of me
–>　　85.959474671834

set coord2 to {latitude:35.71026838, longitude:139.81215754} –Tokyo Sky Tree
set dirRes5 to calcDirectionBetweenTwoPlaces(coord1, coord2) of me
–>　　96.826542737106

–位置情報1から位置情報2の方角を計算。北が0度
on calcDirectionBetweenTwoPlaces(coord1, coord2)
　　set deltaLong to (longitude of coord2) – (longitude of coord1)
　　set yComponent to sin deltaLong
　　set xComponent to (cos (latitude of coord1)) * (sin (latitude of coord2)) – (sin (latitude of coord1)) * (cos (latitude of coord2)) * (cos deltaLong)
　　
　　set radians to (atan2 {yComponent, xComponent}) as real
　　set degreeRes to (radToDeg(radians) of me)
　　
　　return degreeRes
end calcDirectionBetweenTwoPlaces

set jpLat to 42.16593046887
set jpLng to 142.771877437246

set {wdLat, wdLng, wdH} to JapanGeodeticSystem’s convertIntoWgs(jpLat, jpLng)
–>　　{​​​​​42.168504277889, ​​​​​142.768075650137, ​​​​​61.914452206343​​​}

property aNum : 300
property aOffset : 0
property maxWin : 6
property winList : {}
property randList : {}
property winSize : 300

–Initialize
set winList to {}
set randList to {}

repeat maxWin times
　　tell application "Finder"
　　　　activate
　　　　set aWin to make new Finder window
　　　　
　　　　tell aWin
　　　　　　set toolbar visible to false
　　　　　　set sidebar width to 0
　　　　　　set statusbar visible to false
　　　　　　set position to {100, 100}
　　　　　　set bounds to {100, 100, 100 + winSize, 100 + winSize}
　　　　end tell
　　　　
　　　　set the end of winList to aWin
　　　　set the end of randList to {random number from 0 to 400, random number from 0 to 400, random number from 1 to 360}
　　　　
　　end tell
end repeat

–Main
repeat with i from 1 to 360 by 6
　　
　　repeat with ii from 1 to maxWin
　　　　
　　　　set aWinObj to contents of item ii of winList
　　　　set {aRandX, aRandY, aRandDegree} to item ii of randList
　　　　
　　　　set aDeg to i + aRandDegree
　　　　
　　　　set aSinNum to (sin aDeg) as real
　　　　set aCosNum to (cos aDeg) as real
　　　　
　　　　set x to ((aNum * aSinNum) + aNum) * 2 + aOffset
　　　　set y to (aNum * aCosNum) + aNum + aOffset
　　　　
　　　　ignoring application responses
　　　　　　tell application "Finder"
　　　　　　　　tell aWinObj
　　　　　　　　　　set position to {(x as integer) + aRandX, (y as integer) + aRandY}
　　　　　　　　end tell
　　　　　　end tell
　　　　end ignoring
　　　　
　　end repeat
　　
end repeat

property earth_radius : 6378140

set aPoint to {lat:35.7398693, long:139.6474103}
set bPoint to {lat:31.5719562, long:130.56257084}
set aRes to calcDistanceBetweenTwoPoint(aPoint, bPoint) of me

on calcDistanceBetweenTwoPoint(aPoint, bPoint)
　　set lat1 to lat of aPoint
　　set lng1 to long of aPoint
　　set lat2 to lat of bPoint
　　set lng2 to long of bPoint
　　
　　–緯度経度をラジアンに変換
　　set rlat1 to lat1 * pi / 180
　　set rlng1 to lng1 * pi / 180
　　
　　set rlat2 to lat2 * pi / 180
　　set rlng2 to lng2 * pi / 180
　　
　　— 2点の中心角(ラジアン)を求める
　　set a to (sin rlat1) * (sin rlat2) + (cos rlat1) * (cos rlat2) * (cos rlng1 – rlng2)
　　set rr to acos a
　　
　　–2点間の距離(メートル)
　　set distance to earth_radius * rr
　　
　　return distance
end calcDistanceBetweenTwoPoint