Similar blogs you may be interested in

Linnmom Adils Table

Created by: Andy
Fibonacci sequence

Created by: mathskid
A boat with a sail

Created by: Andy
Snowman

Created by: Andy
Virtual Art Gallery

Created by: Andy
VAM Temple project

Created by: Andy
Week 2/3 Journal

Created by: ElysiaR
Earth and Moon

Created by: TH209
Analog clock

Created by: Andy
Waves at sea

Created by: Andy
Interactive Earth Cross...

Created by: Andy
Ripple wave

Created by: Andy
Palm Tree Leaf

Created by: Andy
3d involute gears

Created by: aplesch
Extrusion helical gears

Created by: Andy
Palm tree

Created by: Andy
more gears, fast

Created by: aplesch
Bali Hut

Created by: Andy
Rotating Earth orbiting...

Created by: Andy
The infinite mobius space

Created by: Andy

Author Information

Andy

Offline

Last seen: 13 weeks 2 days ago

Joined: 02/10/2010

Author's blogs

3D Snowflake

29/12/2023 - 22:44:41
Farewell 2021 with 3n+1

31/12/2021 - 13:28:31
Robotic arm

18/01/2020 - 18:26:54
Chaos game - square...

07/12/2019 - 16:43:54
The Sun and Earth model

20/11/2018 - 13:47:49
Hemnes Desk

17/07/2018 - 19:04:28
A pot of green

23/01/2018 - 11:55:15
ATCM 2017 Presentation

17/12/2017 - 13:24:06
Flying boxes

07/06/2017 - 15:17:51
Programming Driven 3D...

04/06/2017 - 16:12:11
Newton's cradle...

05/04/2017 - 17:02:29
Sea simulation

08/03/2017 - 16:09:15
A boat with a sail

08/03/2017 - 15:33:21
Atom Helium

19/07/2016 - 13:26:35
Pokestop

15/07/2016 - 14:42:05

Sea simulation

Submitted by Andy on Wed, 08/03/2017 - 16:09

In junior high school maths, there are usually questions about measuring the angle of depression and/or distance using trigonometry. Common examples could be like "Find the angle of depression from a lighthouse beacon 112 m above the sea level to a boat that is at a horizontal distance of 1.5 km from the lighthouse". A picture (not to scale) may be given as the one on the right. But then, what if the scenario is in 3D?

So, it will be interesting to create a 3D virtual scene for this, and below is what I did.

And here is the Logo program.

; sea surface simulation
; by Andy
CLEAN HOME RESET
SETBG 47
WEST 36 NORTH 36
SETSCALE 8 1.5 8
ELEGRID
MAKE "h1 WORDTOLIST GET WORD OBJECT "_elegrid "height
ELEGRID
MAKE "h2 WORDTOLIST GET WORD OBJECT "_elegrid "height
DELETE OBJECT
 
SELECT "obj_0
SETIT 4 21
DESELECT
 
SETSCALE 1 1 1
HOME LT 45 RD 60 (DIRLIGHT {intensity:0.2})
 
TIMESENSOR "ts 6 TRUE
VECINT "vi [0 .5 1] (LIST :h1 :h2 :h1)
 
ROUTE "r1 "ts "fraction_changed "vi "set_fraction
ROUTE "r2 "vi "value_changed "obj_0_elegrid "set_height
 
HOME UP 1
SETSCALE 5 1 5 BOX
UP 2 SETSCALE 2 4 2 CAN
UP 2.5 SETSCALE .1 1 .1
REPEAT 8 [ FD 0.95 CAN BK 0.95 RT 45 ]
UP 0.5 SETSCALE 1 1 1 DISH
SETSC 1000 1000 0
DN 0.5 BALL
 
TRANSFORM
MAKE "light OBJECT
SETPARENT :light
FD 1 RT 180 (SPOTLIGHT {radius:0.8})
RT 180 BK 1 (SPOTLIGHT {radius:40,cutoffangle:1})
SPIN :light "lt 60
SETPARENT "root
 
HEADLIGHTOFF
 
HOME RESET BK 10 UP 1
WORLD "/sites/default/files/user/u3/world/boat.x3d
LT 45 FD 15
WORLD "/sites/default/files/user/u3/world/boat.x3d
RT 90 FD 25
WORLD "/sites/default/files/user/u3/world/boat.x3d
 
; create views
(VIEWPOINT [POSITION: 1.9986 5.2234 5.4788, ORIENTATION: 0.0293 0.9991 -0.0295 0.402, centerofrotation: 7.0711 1 -18.2843])
GOTO "tower OBJECT
CLICK "obj_14 "tower
 
(VIEWPOINT [POSITION: -14.8981 2.0162 -2.1795, ORIENTATION: 0.0316 -0.9989 0.0343 1.9809, centerofrotation: 7.0711 1 -18.2843])
GOTO "ship1 OBJECT
CLICK "obj_19 "ship1
 
(VIEWPOINT [POSITION: -4.111 2.1253 15.2682, ORIENTATION: 0.0112 -0.9976 0.0686 0.6659, centerofrotation: 7.0711 1 -18.2843])
GOTO "ship2 OBJECT
CLICK "obj_18 "ship2
 
(VIEWPOINT [POSITION: 3.5393 2.9464 -15.3547, ORIENTATION: -0.2735 -0.9618 0.0114 0.9783, centerofrotation: 7.0711 1 -18.2843])
GOTO "ship3 OBJECT
CLICK "obj_20 "ship3
 
; showall

As can be seen in the codes, I included some viewpoints and behavious, so try to click on those boat to animate to soem viewpoints.

Files: sea_simulation.x3d sea_simulation.logo

Andy's blog
Login or register to post comments
7952 reads

The Latest Tweets

Tweets by VRMath2

Get in Touch

Follow @VRMath2