找回密码
 欢迎注册
查看: 7735|回复: 9

[求助] 请求计算机绘星系视星等、绝对星等图

[复制链接]
发表于 2017-1-26 13:25:15 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?欢迎注册

×
依据下面截图条件绘图
截图20170118214714.png
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2017-1-26 21:16:51 | 显示全部楼层
本帖最后由 happysxyf 于 2017-1-26 22:31 编辑

前辈理论深奥, 我只能用自己发明的酷语言绘图如下:采用静波兰解析算式,每秒千万行级解析能力,绘制精度在0.000001左右。确实不是双曲线!
QQ图片20170126220014.png

酷语言代码

  1. /*
  2. @ECHO OFF&CLS&COLOR 0F&MODE CON COLS=100 LINES=30&CLGO "%~F0"&PAUSE>NUL&EXIT /B
  3. COPYRIGHT@2017~2019 BY HAPPY
  4. */

  5. TO FUNCTIONS_IMG :M :X :Y

  6.         $PENS=2 $PENW=3 $PENC=RAND(15)+1
  7.         FOR ::Z 0.1 3
  8.         [
  9.                 :X=(:M-(5*LN(1.22624*(10^10)*SINH(::Z/2))-40)*EXP(::Z))*EXP(0.016444)
  10.                 :Y=3*:M*EXP(-::Z)
  11.                 LINE  :X       :Y
  12.                 $PENX=:X $PENY=:Y
  13.                 EVAL  :X
  14.                 EVAL  :Y
  15.         ]0.01

  16. TO MAIN

  17.         FUNCTIONS_IMG 17.323 0 0
  18.         FUNCTIONS_IMG 19.426 0 0
  19.         FUNCTIONS_IMG 23.403 0 0
  20.         FUNCTIONS_IMG 25.677 0 0
复制代码


——————————————————————————————————————
——————————————————————————————————————
——————————————————————————————————————
下面演示绘制其他曲线,绝对没有问题,绘制精度在0.000001左右,用的gdiplus库。
蝶形线:
QQ图片20170126222533.png
QQ图片20170126222209.png

酷语言代码

  1. /*
  2. @ECHO OFF&CLS&COLOR 0F&MODE CON COLS=100 LINES=30&CLGO "%~F0"&PAUSE>NUL&EXIT /B
  3. COPYRIGHT@2017~2019 BY HAPPY
  4. */

  5. TO FUNCTIONS_IMG :A

  6.         $PENS=2 $PENW=13 $PENC=4
  7.         FOR ::T 0 3600
  8.         [       
  9.                 IF (::T)%360=0
  10.                 [
  11.                         $PENC=rand(15)+1
  12.                 ]
  13.                 $TP0=(exp(cos(deg(::T)))-2*cos(deg(4*::T))+(sin(deg(::T/12)))^5)*70
  14.                 LINE  $TP0*cos(deg(::T))       $TP0*sin(deg(::T))
  15.                 $PENX=$TP0*cos(deg(::T)) $PENY=$TP0*sin(deg(::T))
  16.         ]

  17. TO MAIN
  18.        
  19.         FUNCTIONS_IMG 0.0003
  20.         PAUSE
复制代码
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2017-1-27 11:30:47 | 显示全部楼层
说明:绘天文物理图,一般两坐标轴不可能同一原点0,此图纵轴原点在起始点0,横轴起始点为30,纵轴可以放在右边,4条类似双曲线簇在第二象限內,其余象限不存在,是宇宙红移Z的定义域限制.m0(0为下标)标在纵轴图外边,M标在横轴下面.这个图m约取13至27时,有无穷多的曲线簇,现在仅绘4条曲线,已很好反映图的分布规律.单元格请柵去.
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2017-1-27 12:50:02 | 显示全部楼层
补充:请下载星系表II/326/zcatev ,表中仅点取红移redshifts zpho,视星等gmag,rmag。即方程中m=gmag或rmag。表中16<gmag,rmag<26,
0.1<zpho<5。表左边有小方框max,点击出现数字,取999,下载后表自有行数据,只下载约3千即可保存计算机内。以 zpho和m为方程(1)(2)中的对应红移、视星等。计算机绘出m0―M图,此图点集,是上面绘出曲线簇。是上面绘图高一级应用。网趾:http://vizier.u-strasbg.fr/viz-b ... e&-oc.form=sexa
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2017-2-15 12:53:32 | 显示全部楼层
广大读者:
我发出4个帖子已近20天了,不知什么原因,我国已毕业应用数学专业的青年才俊很多.我出的天体物浬学的前沿基础,是应用数学专业的青年大展身手的内容,给出的定义域符合天文观测数据,且都是光滑函数,还看不到解决问题的好囬复.我的4个问题本来是天体物浬学教材中最基础的问题.
谁人绘得好图,我写论文要用你们绘的图及绘图作者名及网站.我可以绘图,可惜年岁限制,绘图不好,无法达到发表论文标准,才发帖求助,请青年才俊发挥你们才华!
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

小黑屋|手机版|数学研发网 ( 苏ICP备07505100号 )

GMT+8, 2024-3-28 20:51 , Processed in 0.066118 second(s), 22 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表