找回密码
 欢迎注册
查看: 8021|回复: 5

[原创] 听素数

[复制链接]
发表于 2019-8-24 20:03:12 | 显示全部楼层 |阅读模式

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

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

×
听素数---一个异想天开的想法,可是有人认真的做了大量研究,这个人还是个大教授,
CHRIS K. CALDWELL: 是University of Tennessee at Martin  还在授课的教授,
同时管理已知5000最大素数数据库.
严肃的数论专家在1997年专门研究"听素数"的方法,并编写一批midi,
http://www.utm.edu/research/primes/programs/

觉得有趣,现在我用MMA实现,很简单,可以发挥想象力,生成优美音乐
游戏而已!!!

  1. Sound[SoundNote[#,1.75, "Trumpet"]&/@{2,3,5,7,11}]
复制代码

评分

参与人数 1威望 +3 金币 +4 贡献 +3 经验 +3 鲜花 +3 收起 理由
KeyTo9_Fans + 3 + 4 + 3 + 3 + 3 参考文献具有参考价值。

查看全部评分

毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2019-8-27 16:28:42 | 显示全部楼层
续1 听文字
按文字的编码转换为音符,播放
适用asc编码或拼音,不适用听汉字,汉字编码有几千个,不能精确分辨
英文只有几十个不同编码A---z 空格和标点一律用一个超低音,可以精确分辨

一个听文字(命令或其他)的实例是军队的军号:
很久很久以前,
曾亲眼见证一个训练有素的连长,在野外训练场,听见军号声后立即返回连部
原来号声点名要7连连长返回,
神奇之处在于号声可以点名每一个官兵(专门的号譜)

  1. (* 听文字 *)

  2. Clear["Global`*"]
  3. Print["听文本:"]
  4. str="A string-zero"
  5. lists=Characters[str]
  6. list=ImportString[str,"Integer8" ]
  7. Do[
  8. If[list[[i]]>=65,list[[i]]-=77,list[[i]]=-20],
  9. {i,Length[list]}]
  10. s=Sound[SoundNote[#,1.00, "Trumpet"]&/@list]

  11. Export["C:\\Users\\Administrator\\Documents\\hear\\string.mid", s]
  12. Import["C:\\Users\\Administrator\\Documents\\hear\\string.mid"]
复制代码

毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2019-8-28 09:13:58 | 显示全部楼层
本帖最后由 dlpg070 于 2019-8-28 09:30 编辑

续2 听数字
此后不再听怪异的声音
现在体验MMK对mp3的支持
下面的例子听电话键盘的对应数字
需要的素材:
1 预先建立目录 hear
2 准备好0.MP3,---,9.MP3 复制到hear
  许多MP3制作工具,最简单的是 windows的录音机
  音源可以选自中小学课文的录音,有声课外读物,有声字典,或你自己读等
3 这个例子模仿某个实际应用

  1. (*========= 听数字---mp3*)
  2. Clear["Global`*"]
  3. Print["听数字---电话键盘读拨号mp3: 请按数字键试一试"]
  4. t=Table[Import["C:\\Users\\Administrator\\Documents\\hear\"<>ToString[i]<>".mp3"],{i,1,9}];

  5. AppendTo[t,Import["C:\\Users\\Administrator\\Documents\\hear\"<>ToString[0]<>".mp3"]];
  6. AppendTo[t,Import["C:\\Users\\Administrator\\Documents\\hear\"<>ToString[0]<>".mp3"]];
  7. AppendTo[t,Import["C:\\Users\\Administrator\\Documents\\hear\"<>ToString[0]<>".mp3"]];
  8. list={"1","2","3","4","5","6","7","8","9","*","0","#"};

  9. t1=Table[With[{i=i},Button[list[[i]],EmitSound[t[[i]]]]],{i,12}];
  10. Grid[Partition[t1,3]]
  11. Print["end!"]
复制代码

numbermp3.zip

45.37 KB, 下载次数: 5, 下载积分: 金币 -1 枚, 经验 1 点, 下载 1 次

0---9.mp3

毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2019-8-28 13:48:35 | 显示全部楼层
KeyTo9_Fans 发表于 2019-8-28 10:12
该课题意义重大!速做!

如缺少资源,可向我求助。

这里是"开心茶馆",你的课题与我无关,我说了:"游戏而已",茶余饭后,摆摆龙门阵,侃大山,莫当真.
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2019-8-29 17:21:59 | 显示全部楼层
续3 听数列
  本以为CHRIS K. CALDWELL 教授的听素数的怪异想法,不再有人感兴趣,
  却发现有人研究得更深入,水平更高
  
  比如
  1. OEIS竟然对全部数列都在线实现 Play和Save(生成)midi,作者: David Applegate
  例如 http://oeis.org/play?seq=A001223
  2.由任意数字产生midi:
  http://musicalgorithms.ewu.edu/algorithms/import.html

  这部分受 KeyTo9_Fans的主题帖: "[灌水] 如何创作高质量的音乐"启发
  临时增加.
  灌水灌出新高度
  佩服
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2019-9-3 09:46:52 | 显示全部楼层
续4 多媒体
本打算藉"听素数"的由头学习mma的"Sound"强大功能
当看到它支持 ".mp3",".mid",".mov",".avi"时欣喜若狂,
可是深入研究后大失所望
总体上"Sound"部分功能优秀,
但多媒体multimedia功能太弱,
.mov 和.avi 与标准定义完全不同,不具备多媒体播放功能
mma中不能Import/Export音视频文件
怕我的理解有误,下面摘录参考资料佐证
AVI (Import/Export Format)
         Registered MIME type:video/avi
     原始功能:audio and video
         Stores audio and video content in a format suitable for synchronous playback.
     mma功能:只graphics images
     Import["file.avi"] imports an AVI file and returns a list of frame indices.
     Export["file.avi",lExport["file.mov",list] exports a list of graphics,images,
           or arbitrary expressions,taking each element to be a video frame.ist]
           exports a list of graphics,images,or arbitrary expressions,taking each element to be an animation frame.

QuickTime (Import/Export Format)
Registered MIME type:video/quicktime
    原始功能:audio and video
        Stores audio and video in a format suitable for synchronous playback.
    mma功能:只graphics images
    Import["file.mov"] imports a QuickTime file and returns a list of frame indices.
    Export["file.mov",list] exports a list of graphics, images,
    or arbitrary expressions, taking each element to be a video frame.
另外,mma很难播放实际的midi音乐(3-5分钟)
如果有人有高招,请告诉我
优秀的mma,也有短板,还有发展空间
暂时学习到此.
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

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

GMT+8, 2024-3-29 14:37 , Processed in 0.047927 second(s), 20 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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