²é¿´: 1491  |  »Ø¸´: 3

astringent

Í­³æ (ÖøÃûдÊÖ)


[½»Á÷] ¡¾ÇóÖú¡¿¹ØÓÚÏòÁ¿Í¶Ó°µÄÎÊÌâ

ÓÐÁ½¸öµãA£¨x1,y1,z1£©,B£¨x2,y2,z2£©,ÏÖÔÚÒÔÓɵãAºÍBÈ·¶¨µÄÖ±ÏßΪ»ù×¼ÖᣬÎÒÏëÇóµÄÊǵ±ÒÔÎïÌåÓɵãC£¨x3,y3,z3£©Ô˶¯µ½µãD£¨x4,y4,z4£©Ê±£¬ÑØAB»ù×¼Öá·½ÏòµÄÎ»ÒÆÒÔ¼°ÑØ´¹Ö±ÓÚAB»ù×¼Öá·½ÏòµÄÎ»ÒÆ¡£ÎÒдÁËÒ»¸ö³ÌÐò£¬ÀÍ·³´ó¼Ò°ïæ¿´¿´£¬Õâ¸ö³ÌÐòÓÐûÓÐÎÊÌâÒÔ¼°Äܲ»ÄÜʵÏÖÎÒµÄÄ¿µÄ?Çë´ó¼Ò²»Áߴͽ̡£
program get_projection
implicit none
real x1,y1,z1
real x2,y2,z2
real x3,y3,z3
real x4,y4,z4
real theta
real dx1,dy1,dz1,dx2,dy2,dz2
real px1,py1,pz1,px2,py2,pz2
real r1,r2

! Çó»ù×¼ÖáAB
  dx1=x2-x1
  dy1=y2-y1
  dz1=z2-z1
!ÇóCDµÄÎ»ÒÆ£¨Ç°±£´æµÄ½á¹û£©
   dx2=x4-x3
  dy2=y4-y3
  dz2=z4-z3
!ÇóABºÍCDµÄÄ£
  r1=dx1**2+dy1**2+dz1**2
r2=dx2**2+dy2**2+dz2**2
£¡Óɵã³Ë¹«Ê½¼ÆËãABÓëCDËùÐγɵĽÇtheta
theta=acos ((dx1*dx2+dy1*dy2+dz1*dz2)/(sqrt(r1)*sqrt(r2)))
!¼ÆËãÑØAB»ù×¼Öá·½ÏòµÄÎ»ÒÆ
  px1=dx2*cos(theta)
  py1=dy2*cos(theta)
  pz1=dz2*cos(theta)
!ÑØ´¹Ö±ÓÚAB»ù×¼Öá·½ÏòµÄÎ»ÒÆ
  px2=dx2*sin(theta)
  py2=dy2*sin(theta)
  pz2=dz2*sin(theta)
end
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

» ÇÀ½ð±ÒÀ²£¡»ØÌû¾Í¿ÉÒԵõ½:

²é¿´È«²¿É¢½ðÌù

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
¡ï ¡ï
ÓàÔó³É(½ð±Ò+2): лл²ÎÓëÓ¦Öú£¡ 2011-01-21 13:28:24
astringent(½ð±Ò+5): 2011-01-22 05:27:21
ÒýÓûØÌû:
Originally posted by astringent at 2011-01-21 04:03:30:
ÓÐÁ½¸öµãA£¨x1,y1,z1£©,B£¨x2,y2,z2£©,ÏÖÔÚÒÔÓɵãAºÍBÈ·¶¨µÄÖ±ÏßΪ»ù×¼ÖᣬÎÒÏëÇóµÄÊǵ±ÒÔÎïÌåÓɵãC£¨x3,y3,z3£©Ô˶¯µ½µãD£¨x4,y4,z4£©Ê±£¬ÑØAB»ù×¼Öá·½ÏòµÄÎ»ÒÆÒÔ¼°ÑØ´¹Ö±ÓÚAB»ù×¼Öá·½ÏòµÄÎ»ÒÆ¡£ÎÒдÁËÒ»¸ö³ÌÐò£¬ ...

³ÌÐò±¾ÉíÓï·¨ËÆºõûÓÐÎÊÌ⣬µ«Äܲ»ÄÜ´ïµ½ÄãµÄÄ¿µÄ¾Í²»Çå³þÁË£¬ÕâÊÇËã·¨µÄÎÊÌ⣬ºÇºÇ¡­¡­
2Â¥2011-01-21 09:12:14
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

leedobb

½ð³æ (ÕýʽдÊÖ)


¡ï ¡ï
astringent(½ð±Ò+5): 2011-02-17 02:57:21
astringent(½ð±Ò+10): 2011-02-17 03:11:16
ÓàÔó³É(½ð±Ò+2): лл²ÎÓëÓ¦Öú£¬»¶Ó­³£À´³ÌÐòÓïÑ԰棡 2011-02-20 18:34:56
·¢ÏÖÒ»¸öСÎÊÌ⣬
°ÑÏÂÃæÒ»¶Î¸ÄÒ»ÏÂ

" px1=dx2*cos(theta)
  py1=dy2*cos(theta)
  pz1=dz2*cos(theta)
!ÑØ´¹Ö±ÓÚAB»ù×¼Öá·½ÏòµÄÎ»ÒÆ
  px2=dx2*sin(theta)
  py2=dy2*sin(theta)
  pz2=dz2*sin(theta)
¡°

==¡·
¡±
px1= dx1/sqrt(r1) * sqrt(r2) *cos(theta)
py1= dy1/sqrt(r1) * sqrt(r2) *cos(theta)
pz1= dz1/sqrt(r1) * sqrt(r2) *cos(theta)
!ÑØ´¹Ö±ÓÚAB»ù×¼Öá·½ÏòµÄÎ»ÒÆ
  px2=dx2-px1
  py2=dy2-py1
  pz2=dz2-pz1
¡°

Ô­³ÌÐòÀïp1ÇóµÄÏòÁ¿ÊÇÑØcd·½ÏòµÄ£¬ËùÒÔ²»¶Ô
p2Ò²ÑØcd·½Ïò¡£
3Â¥2011-02-16 16:25:27
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ÄäÃû

Óû§×¢Ïú (ÖªÃû×÷¼Ò)


¡ï ¡ï
astringent(½ð±Ò+10): 2011-02-17 02:57:30
ÓàÔó³É(½ð±Ò+2): лл²ÎÓëÓ¦Öú£¬»¶Ó­³£À´³ÌÐòÓïÑ԰棡 2011-02-20 18:35:06
±¾Ìû½öÂ¥Ö÷¿É¼û
4Â¥2011-02-16 17:10:15
ÒÑÔÄ   ÉêÇë³ÌÐòÇ¿Ìû   »Ø¸´´ËÂ¥   ±à¼­   ²é¿´ÎÒµÄÖ÷Ò³
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ astringent µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 281Çóµ÷¼Á£¨0805£© +3 ÑÌÏ«Ò亣 2026-03-16 7/350 2026-03-17 20:16 by peike
[¿¼ÑÐ] 290Çóµ÷¼Á +3 p asserby. 2026-03-15 4/200 2026-03-17 16:35 by wangkm
[¿¼ÑÐ] 08¹¤¿Æ 320×Ü·Ö Çóµ÷¼Á +4 À滨çóÍí·ç 2026-03-17 4/200 2026-03-17 13:38 by houyaoxu
[¿¼ÑÐ] ²ÄÁÏר˶274Ò»Ö¾Ô¸ÉÂÎ÷ʦ·¶´óѧÇóµ÷¼Á +5 Ñ¦ÔÆÅô 2026-03-13 5/250 2026-03-17 10:15 by Sammy2
[¿¼ÑÐ] 326Çóµ÷¼Á +4 ŵ±´¶û»¯Ñ§½±êéê 2026-03-15 7/350 2026-03-16 17:11 by ŵ±´¶û»¯Ñ§½±êéê
[¿¼ÑÐ] 0703»¯Ñ§µ÷¼Á +6 ÄÝÄÝninicgb 2026-03-15 9/450 2026-03-16 16:40 by houyaoxu
[¿¼ÑÐ] 311Çóµ÷¼Á +5 26ÑÐ0 2026-03-15 5/250 2026-03-16 16:21 by a²»Ò×
[¿¼²©] ¶«»ªÀí¹¤´óѧ»¯²Äרҵ26½ì˶ʿ²©Ê¿ÉêÇë +6 zlingli 2026-03-13 6/300 2026-03-15 20:00 by ryzcf
[¿¼ÑÐ] 294Çóµ÷¼Á +3 Zys010410@ 2026-03-13 4/200 2026-03-15 10:59 by zhq0425
[¿¼ÑÐ] 289Çóµ÷¼Á +4 ÕâôÃû×ÖÕ¦Ñù 2026-03-14 6/300 2026-03-14 18:58 by userper
[¿¼ÑÐ] ¸´ÊÔµ÷¼Á +3 ºôºô£¿~+123456 2026-03-14 3/150 2026-03-14 16:53 by WTUChen
[¿¼ÑÐ] ¸´ÊÔµ÷¼Á +4 z1z2z3879 2026-03-14 5/250 2026-03-14 16:30 by JourneyLucky
[¿¼ÑÐ] Ò»Ö¾Ô¸¹þ¹¤´ó²ÄÁÏ324·ÖÇóµ÷¼Á +5 ãÆÐñ¶« 2026-03-14 5/250 2026-03-14 14:53 by ľ¹Ï¸à
[¿¼ÑÐ] 266Çóµ÷¼Á +4 ѧԱ97LZgn 2026-03-13 4/200 2026-03-14 08:37 by zhukairuo
[¿¼ÑÐ] 279Çóµ÷¼Á +3 ×¥×ÅÐÇÐǵÄÅ®º¢ 2026-03-10 3/150 2026-03-13 23:47 by userper
[¿¼ÑÐ] 341Çóµ÷¼Á +3 ·¬ÇÑÍ·--- 2026-03-10 3/150 2026-03-13 23:07 by JourneyLucky
[¿¼ÑÐ] ¹¤¿Æ£¬Çóµ÷¼Á +3 ÎÒ887 2026-03-11 3/150 2026-03-13 21:39 by JourneyLucky
[¿¼ÑÐ] 281Çóµ÷¼Á +9 Koxui 2026-03-12 11/550 2026-03-13 20:50 by Koxui
[¿¼ÑÐ] һ־Ըɽ´ó07»¯Ñ§ 332·Ö ËÄÁù¼¶Òѹý ±¾¿ÆÉ½¶«Ë«·Ç Çóµ÷¼Á£¡ +3 ²»ÏëÀíÄã 2026-03-12 3/150 2026-03-13 14:18 by JourneyLucky
[¿¼ÑÐ] »¯¹¤Ñ§Ë¶306Çóµ÷¼Á +9 42838695 2026-03-12 9/450 2026-03-13 10:16 by houyaoxu
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û