Hobbies - Skydive

Location

Wind Direction @ groud

Wind Speed @ ground

knots

Beta version - use at your own risk!

A first take at plotting a skydive landing pattern onto Google Maps.
Calculations are for 3 stages of 300 feet each.

This is not my hobby! It's Barbara's :-)
Thanks to Marc for providing the Excel sheet that inspired this!

Another great implementation of this idea: Blue Skies
More info on weather and wind: Jumprun.nl

Id	Name	Lat	Lng
1	NL - Teuge - De Bak	52.246511	6.049092
2	NL - Teuge - Het Kussen	52.246789	6.045298
3	NL - Ameland - Beachclub The Sunset	53.4496604	5.6142207
4	NL - Texel - Veld	53.11925176	4.830363607
5	NL - Texel - Grindbak	53.11825203	4.829039776

1 - 5

Table
	Name	TED_SKYDIVE_LOCATIONS
	DDL	CREATE TABLE "TEDSTRUIK"."TED_SKYDIVE_LOCATIONS" ( "ID" NUMBER NOT NULL ENABLE, "NAME" VARCHAR2(1000) NOT NULL ENABLE, "LAT" NUMBER NOT NULL ENABLE, "LNG" NUMBER NOT NULL ENABLE ) SEGMENT CREATION IMMEDIATE PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "USERS" CREATE UNIQUE INDEX "TEDSTRUIK"."SLN_PK" ON "TEDSTRUIK"."TED_SKYDIVE_LOCATIONS" ("ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 COMPUTE STATISTICS STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "USERS" ALTER TABLE "TEDSTRUIK"."TED_SKYDIVE_LOCATIONS" ADD CONSTRAINT "SLN_PK" PRIMARY KEY ("ID") USING INDEX "TEDSTRUIK"."SLN_PK" ENABLE

Item

Identification
	Sequence	10
	Name	P1093_LOCATION_ID
	Display As	Select List
User Interface
User Interface	Region	Skydive
List Of Values
	Display Extra Values	Yes
	Display Null Value	No
	List of values definition	select name as d , id as r from ted_skydive_locations order by ( case when name like 'NL - Teuge%' then 1 when name like 'NL%' then 2 else 3 end ) , name

Item

Identification
	Sequence	20
	Name	P1093_WIND_ANGLE
	Display As	Select List
User Interface
User Interface	Region	Skydive
List Of Values
	Display Extra Values	Yes
	Display Null Value	No
	List of values definition	select trim(a) \|\| ( case a when 0 then ' - North' when 90 then ' - East' when 180 then ' - South' when 270 then ' - West' else '' end ) as d , a as r from ( select (level-1)*10 as a from dual connect by level <= 36 ) order by a

Item

Identification
	Sequence	30
	Name	P1093_WIND_SPEED
	Display As	Select List
User Interface
User Interface	Region	Skydive
List Of Values
	Display Extra Values	Yes
	Display Null Value	No
	List of values definition	select trim(a) as d , a * 0.5144 as r from ( select level-1 as a from dual connect by level <= 21 ) order by a

Package

Package
	Name	TED_P1093
	Source	package ted_p1093 is -- constants c_lf constant varchar2(2) := chr(10); c_pi constant number := 3.141592653589793238462643383279502884197169399375; function js_map ( p_location_id in ted_skydive_locations.id%type , p_wind_speed in number -- meters per second , p_wind_angle_deg in number -- wind direction in degrees (Note: 0 = north, 90 = east) ) return varchar2 ; end ted_p1093;

Package Body

Package Body
	Name	TED_P1093
	Source	package body ted_p1093 is procedure vector ( po_lat in out number , po_lng in out number , p_distance_m in number -- distance in meters , p_angle in number -- angle in radians ) is c_r_earth constant number := 6378 * 1000; v_lat_old number := po_lat; v_lng_old number := po_lng; v_lat_m number; -- latitude change in meters v_lng_m number; -- longitude change in meters begin v_lat_m := p_distance_m * cos( p_angle + c_pi / 2 ); v_lng_m := p_distance_m * sin( p_angle + c_pi / 2 ); -- Source: http://stackoverflow.com/questions/7477003/calculating-new-longtitude-latitude-from-old-n-meters -- Not exact, but close enough for these purposes po_lat := v_lat_old + (v_lat_m / c_r_earth) * (180 / c_pi); po_lng := v_lng_old + (v_lng_m / c_r_earth) * (180 / c_pi) / cos(v_lat_old * c_pi / 180); end vector; function js_map ( p_location_id in ted_skydive_locations.id%type , p_wind_speed in number -- meters per second , p_wind_angle_deg in number -- wind direction in degrees (Note: 0 = north, 90 = east) ) return varchar2 is v_result varchar2(32767); v_loc_row ted_skydive_locations%rowtype; c_api_key constant varchar2(100) := 'AIzaSyB4wjotbHWx2NDxuaHbKNXNJTzSSg01Q0E'; c_forward_speed constant number := 10; -- meter per second -- # voorwaardse snelheid c_vector_secs constant number := 18; -- seconds per vector (18 seconds per 300 ft) -- # daalsnelheid (per 300 ft) v_wind_angle number := -1 * ( (p_wind_angle_deg+90) * c_pi / 180 ); -- wind direction converted to radials (Note: 0 = north, 90 = east) v_right_angled_to_downwind number := atan( p_wind_speed / c_forward_speed ); -- # hoek om haaks op downwind te vliegen (rad) v_right_angled_to_downwind_deg number := round( v_right_angled_to_downwind / c_pi * 180 ); -- # hoek om haaks op downwind te vliegen (deg) - used for debugging only v_dissolved_wind_on_base number := round( sin(v_right_angled_to_downwind) * p_wind_speed ); -- # ontbonden wind op base leg v_forward_speed_on_downwind number := round( c_forward_speed + p_wind_speed ); -- # voorwaartse snelheid op downwind v_forward_speed_on_base number := round( c_forward_speed - v_dissolved_wind_on_base ); -- # voorwaartse snelheid op base leg v_forward_speed_on_final number := round( c_forward_speed - p_wind_speed ); -- # voorwaartse snelheid op final v_dist_downwind number := round( v_forward_speed_on_downwind * c_vector_secs ); -- # wind afstand - downwind v_dist_base number := round( v_forward_speed_on_base * c_vector_secs ); -- # wind afstand - base v_dist_final number := round( v_forward_speed_on_final * c_vector_secs ); -- # wind afstand - final v_lat_temp number; v_lng_temp number; v_lat_temp_prev number; v_lng_temp_prev number; function number_to_char ( p_number in number ) return varchar2 is v_result varchar2(100); begin v_result := to_char(round(p_number,6), 'fm9990D999999', 'nls_numeric_characters = ''.,'''); return v_result; end number_to_char; begin select * into v_loc_row from ted_skydive_locations where id = p_location_id ; v_result := c_lf; v_result := v_result \|\| '<script type="text/javascript" src="https://maps.google.com/maps/api/js?key='\|\|c_api_key\|\|'&sensor=false"></script>' \|\| c_lf; v_result := v_result \|\| '<script type="text/javascript">' \|\| c_lf; v_result := v_result \|\| ' var geocoder = new google.maps.Geocoder();' \|\| c_lf; v_result := v_result \|\| ' var myLatlng = new google.maps.LatLng(0,0);' \|\| c_lf; v_result := v_result \|\| ' var myOptions = {' \|\| c_lf; v_result := v_result \|\| ' zoom: 12' \|\| c_lf; v_result := v_result \|\| ' , center: myLatlng' \|\| c_lf; v_result := v_result \|\| ' , mapTypeId: google.maps.MapTypeId.SATELLITE' \|\| c_lf; v_result := v_result \|\| ' , scaleControl: true' \|\| c_lf; v_result := v_result \|\| ' }' \|\| c_lf; v_result := v_result \|\| ' var map = new google.maps.Map(document.getElementById("map_canvas"), myOptions);' \|\| c_lf; v_result := v_result \|\| ' var bounds = new google.maps.LatLngBounds();' \|\| c_lf; v_result := v_result \|\| ' var myLatlng = new google.maps.LatLng('\|\|number_to_char(v_loc_row.lat)\|\|', '\|\|number_to_char(v_loc_row.lng)\|\|');' \|\| c_lf; v_result := v_result \|\| ' var marker = new google.maps.Marker({' \|\| c_lf; v_result := v_result \|\| ' position: myLatlng' \|\| c_lf; v_result := v_result \|\| ' , map: map' \|\| c_lf; v_result := v_result \|\| ' , title: "'\|\|v_loc_row.name\|\|'"' \|\| c_lf; v_result := v_result \|\| ' });' \|\| c_lf; v_result := v_result \|\| ' bounds.extend(myLatlng);' \|\| c_lf; -- vectors declare cursor c1 is select 1 as n , 900 as feet , 'final' as title , v_dist_final as distance , -1 * v_wind_angle as angle -- -1 because final approach is against the wind from dual union all select 2 as n , 600 as feet , 'base' as title , v_dist_base as distance , -1 * v_wind_angle + (c_pi / 2) as angle from dual union all select 3 as n , 300 as feet , 'downwind' as title , v_dist_downwind as distance , -1 * v_wind_angle + c_pi as angle from dual ; begin -- markers v_lat_temp := v_loc_row.lat; v_lng_temp := v_loc_row.lng; for c1_rec in c1 loop vector ( po_lat => v_lat_temp , po_lng => v_lng_temp , p_distance_m => c1_rec.distance , p_angle => c1_rec.angle ) ; v_result := v_result \|\| ' var myLatlng = new google.maps.LatLng('\|\|number_to_char(v_lat_temp)\|\|', '\|\|number_to_char(v_lng_temp)\|\|');' \|\| c_lf; v_result := v_result \|\| ' var marker = new google.maps.Marker({' \|\| c_lf; v_result := v_result \|\| ' position: myLatlng' \|\| c_lf; v_result := v_result \|\| ' , map: map' \|\| c_lf; v_result := v_result \|\| ' , title: "'\|\|c1_rec.title\|\|'"' \|\| c_lf; v_result := v_result \|\| ' });' \|\| c_lf; v_result := v_result \|\| ' bounds.extend(myLatlng);' \|\| c_lf; end loop; v_result := v_result \|\| ' map.fitBounds(bounds);' \|\| c_lf; -- arrows v_lat_temp := v_loc_row.lat; v_lng_temp := v_loc_row.lng; -- v_result := v_result \|\| ' var lineSymbol = {' \|\| c_lf; v_result := v_result \|\| ' path: google.maps.SymbolPath.FORWARD_OPEN_ARROW,' \|\| c_lf; v_result := v_result \|\| ' strokeColor: "#F00"' \|\| c_lf; v_result := v_result \|\| ' };' \|\| c_lf; -- for c1_rec in c1 loop v_lat_temp_prev := v_lat_temp; v_lng_temp_prev := v_lng_temp; vector ( po_lat => v_lat_temp , po_lng => v_lng_temp , p_distance_m => c1_rec.distance , p_angle => c1_rec.angle ) ; v_result := v_result \|\| ' var line = new google.maps.Polyline({' \|\| c_lf; v_result := v_result \|\| ' path: [{lat: '\|\|number_to_char(v_lat_temp)\|\|', lng: '\|\|number_to_char(v_lng_temp)\|\|'}' \|\| ', {lat: '\|\|number_to_char(v_lat_temp_prev)\|\|', lng: '\|\|number_to_char(v_lng_temp_prev)\|\|'}],' \|\| c_lf; v_result := v_result \|\| ' strokeColor: "#F00",' \|\| c_lf; v_result := v_result \|\| ' icons: [{' \|\| c_lf; v_result := v_result \|\| ' icon: lineSymbol,' \|\| c_lf; v_result := v_result \|\| ' offset: "100%"' \|\| c_lf; v_result := v_result \|\| ' }],' \|\| c_lf; v_result := v_result \|\| ' map: map' \|\| c_lf; v_result := v_result \|\| ' });' \|\| c_lf; end loop; end; v_result := v_result \|\| '</script>' \|\| c_lf; return v_result; end js_map; end ted_p1093;

Skydive

Info

Locations

Code

Table

Item

Item

Item

Package

Package Body