在3D中定義標題間距和滾動問題-netlogo

Question

我想模擬建築物上的太陽光線。對於太陽光線的角度，我有正確的仰角和方位角。我正在計算航向和俯仰的相應值。但是前進，俯仰和滾動似乎會相互影響。標題改變時，音高也會改變。我不知道如何計算我的角度對應的值。 我正在檢查netlogo庫中的「Turtle and Observer Motion」代碼示例，但這沒有幫助。

這是我到目前爲止的代碼： 角度應改變每60個蜱（位置在列表中的變化） 列表包含轉換航向和俯仰值respectevly

globals [h ; heading 
    p  ; pitch 
    r  ; roll 
    i  ; instead of tick 
    data_az ; a list with the azimuth angles 
    data_el ; a list with the elevation angles 
    hour  ; is the position of the angles in the list, stands for the hour 
    i_test 
    i_round 
    ] 
breed [rays ray] 
to setup 
    ca 
    file-open "heading.txt" 
    set data_az file-read 
    file-close 

    file-open "pitch.txt" 
    set data_el file-read 
    file-close 
    check-date 
    set r 0 
    set i 1 
    set hour hour - 1 
    set-default-shape rays "line half" 
    reset-ticks 
end 
to go 

    tick 

    if i = 1440 ; after 24x60 i stop  
    [ 
    stop 
    ] 

    set i_test i/60    
    set i_round round i_test  



    if i_test = i_round or i = 1 
    [         
    set hour hour + 1    
     set h item hour data_az 
     set p item hour data_el 

    ] 



    if h != 0   
     [ 
     create-sunshine 
     run-sunshine 
     ] 





    set i i + 1 

    close 

end 
to create-sunshine 

    create-rays 5 [ setxyz random-pxcor max-pycor random-pzcor 

     set color yellow 
     set heading h 
    set pitch p 
    set roll r 

     set size 2 


    ] 
end 
to run-sunshine 
    ask rays [fd 1] 
    ask rays [if pxcor = 0 [die]] ;rays stop at the edges 
    ask rays [if pxcor = 199 [die]] 
ask rays [if pycor = 0 [die]] 
    ask rays [if pycor = 49 [die]] 
    ask rays [if pzcor = 0 [die]] 
    ask rays [if pzcor = 199 [die]] 
end 
to close 
    file-close-all 
end 
to check-date 
    if date = "march-equinox" [set hour 0] 
    if date = "summer-solstice" [set hour 24] 
if date = "september-equinox" [set hour 48] 
    if date = "winter-solstice" [set hour 72] 
end 

期待您的建議！ 由於事先 賈納

Answer 1

從我們的討論

理念1 有海龜的一個facexyz點，讓你正確的仰角和方位角和海龜的其餘部分複製這些值。像

Ask one-of turtles 
     [ 
     Facexyz 1000 45663 4663; or something 
     Ask other turtles[ 
          Set heading [heading] of myself 
          Set pitch [pitch] of myself. 
           ] 

]

思想2

如果輥被設置爲0節距應該等於仰角和方位應等於方位角。

Answer 2

所以它與想法合作1.謝謝！

這是現在的代碼：

globals [x 
    y 
    z 
    data_x 
data_y 
data_z 
hour 
i 
i_test 
    i_round 
    leader 

] 

breed [rays ray] 

to setup 
    ca 
    file-open "x.txt" ; three files are loaded with x y and z coordinates respectevely. 
    set data_x file-read 
    file-close 

    file-open "y.txt" 
    set data_y file-read 
    file-close 

    file-open "z.txt" 
    set data_z file-read 
    file-close 

    set hour hour - 1 
    set i 1 
    set-default-shape rays "line half" 

    reset-ticks 
end 



to go 
    tick 
    if i = 1440 [ 
    stop] 

    set i_test i/60 
    set i_round round i_test 

    if i_test = i_round or i = 1 [ 
    set hour hour + 1 
    set x item hour data_x 
    set y item hour data_y 
    set z item hour data_z] 

    if i_test = i_round or i = 1 [ 
    if y != 0 [ 
    create-leader 
    create-follower 
    run-sunshine]] 

    set i i + 1 
    close 

end 



to create-leader 
    crt 1 [setxyz x y z 
     facexyz 45 1 45 
    set leader who 
    ] 
    end 

to create-follower 
    crt 5 [setxyz random-xcor 70 random-zcor 
    set heading [heading] of turtle leader 
    set pitch [pitch] of turtle leader 
    ] 
end 

to run-sunshine 
    ask turtles [fd 1 
    pendown] 

end 

to close 
    file-close-all 
end