
Mathematica
Happy画板
痴迷数学
展开
-
用Mathematica找茬
用Mathematica找茬的基本思路。原创 2022-02-04 12:00:40 · 2375 阅读 · 0 评论 -
三叶玫瑰线的膨胀(Mathematica演示)
三叶玫瑰线的极坐标方程是原创 2022-02-04 12:33:35 · 2367 阅读 · 0 评论 -
用Mathematica爬取我的百度经验目录
这里只爬取前10页的内容:urlss = StringJoin[ "http://jingyan.baidu.com/user/npublic/?uid=\d1b612bceb0dc22ba8ffe137&pn=", ToString@#] & /@ Range[0, 602, 7];urls = Flatten[ Table[StringCases[URLRead[urlss[原创 2017-11-09 18:27:17 · 480 阅读 · 0 评论 -
角格点问题怎么批量发掘?
考虑一般问题:△ABC内部有一点D,∠ABD=b°,∠CBD=a°,∠BCD=d°,∠ACD=c°,且∠BAD的度数和a、b、c、d都是正整数。原创 2017-10-15 10:26:08 · 1043 阅读 · 0 评论 -
怎么用Mathematica研究12阶群?
教材上是这么分类的。 那么,怎么使用Mathematica处理这个问题呢?原创 2017-12-07 19:46:48 · 587 阅读 · 0 评论 -
两个函数生成的函数群的构造过程
第一步,尽可能多的写出群的元素。 第二步,构造群的乘法表。 如果乘法表是封闭的,那么这就是一个群,进而确定单位元; 如果乘法表里面出现没发现的元素,那么这个群就应该包容这个元素,并构造新的乘法表。直到彻底封闭。两个函数生成的函数群的构造过程_百度经验 https://jingyan.baidu.com/article/86112f1380011027379787b2.html原创 2017-11-28 08:28:43 · 496 阅读 · 0 评论 -
Mathematica处理24点问题初步
a = Tuples[{"+", "-", "*", "/"}, 4];b = Permutations[{5, 6, 7, 10, 3}];Drop[Table[ If[((v = (ToString[#] & /@ ({ToString@ n[[1]], ({m, n[[2 ;; 5]]} // Transpose)} // Flatten)) // StringJoin)原创 2018-01-03 18:55:39 · 489 阅读 · 0 评论 -
不懂了
$$\dfrac{1}{\left|\sin(t)\right|+\left|\cos(t)\right|}$$原创 2018-01-06 13:42:05 · 257 阅读 · 0 评论 -
budongle
1|sin(t)|+|cos(t)|\dfrac{1}{\left|\sin(t)\right|+\left|\cos(t)\right|}{Cos[t],Sin[t]}/(Abs[Cos[t]]+Abs[Sin[t]])//Abs//Total//TeXForm∣∣∣cos(t)|cos(t)|+|sin(t)|∣∣∣+∣∣∣sin(t)|cos(t)|+|sin(t)|∣∣∣\left|\fra原创 2018-01-06 13:51:38 · 244 阅读 · 0 评论 -
奇怪的算式与正方形
ContourPlot[Abs[x]+Abs[y]==1,{x,-1,1},{y,-1,1}]正方形的参数方程和极坐标方程是什么?怎么求正方形的方程式_百度经验 https://jingyan.baidu.com/article/bad08e1ed708d209c851210d.html 怎么理解正方形的三个参数方程_百度经验 https://jingyan.baidu.co原创 2018-01-06 13:40:59 · 440 阅读 · 0 评论 -
参数方程的二阶导数
已知 x=ln(t2+1)" role="presentation" style="position: relative;">x=ln(t2+1)x=ln(t2+1)x=\ln\left(t^2+1\right) y=t−arctan(t)" role="presentation" style="position: relative;">y=t−原创 2018-01-25 16:20:40 · 13504 阅读 · 3 评论 -
在球面上写字的方法
具体代码,请参考这里。原创 2018-03-01 13:42:57 · 768 阅读 · 0 评论 -
把动态图放映到球面上播放
把动态图放映到球面上的方法原创 2018-03-01 13:59:31 · 204 阅读 · 0 评论 -
Mathematica代码
p[r_] := Flatten[ Table[t + # & /@ (ReIm[r*E^(I*#*Pi/10)] & /@ Range[20]), {t, Flatten[Table[2 {m, n}, {m, 0, 5, 1}, {n, 0, 5, 1}], 1]}], 1]; Manipulate[ Graphics[{Green, PointSize[0.02],原创 2018-04-10 21:22:14 · 2470 阅读 · 0 评论 -
Mathematica
用Mathematica锁定脸谱的眼睛的大体位置的方法https://jingyan.baidu.com/article/414eccf6b83f6f6b431f0acd.html用Mathematica进行直方图均衡化处理的算法https://jingyan.baidu.com/article/d7130635fc918813fdf47509.html用Mathematica对图片亮度进行阈值化...原创 2018-05-07 15:43:50 · 2613 阅读 · 0 评论 -
图像处理
用python对彩色图像进行直方图均衡化处理 https://jingyan.baidu.com/article/aa6a2c148f83d50d4c19c4cb.html python调用matplotlib处理图片的基本方法 https://jingyan.baidu.com/article/851fbc378f5be63e1f15abe2.html python读取图片、保存图片的方法原创 2018-05-07 15:51:06 · 1422 阅读 · 0 评论 -
我的百度经验列表
Blender界面介绍 编辑经验2017-10-19 螺旋图形的简易构造(网络画板) 编辑经验2017-10-18 角格点问题的批量发掘 编辑经验2017-10-17 怎么安装Blender? 编辑经验2017-10-16 用网络画板绘制一个鼓风机 编辑经验2017-10-15 Mathematica里面的*Thread类函数 编辑经验2017-10-15 用py原创 2017-10-20 09:36:27 · 1478 阅读 · 0 评论 -
转载爬虫
比特之理 » 抓取豆瓣相册图片——Mathematica版|とある東雲研究所の分所 http://www.kylen314.com/archives/1647终于看懂了\Huge\text{终于看懂了} 这脑袋瓜子,当时是想什么去了?st = Import[ "http://movie.douban.com/subject/10581289/photos?type=S&start=0&;\转载 2017-10-08 12:45:19 · 412 阅读 · 0 评论 -
文章标题
−2−1−−−√12((−1)5/6tan−1((−1)5/12(2+(1−i3√)tan(x2))23√4)+tan−1((−1)7/12(2+(1+i3√)tan(x2))23√4))33/4-\frac{2\sqrt[12]{-1}\left((-1)^{5/6}\tan^{-1}\left(\frac{(-1)^{5/12}\left(2+\left(1-i\sqrt{3}\right)\原创 2017-08-26 16:35:11 · 205 阅读 · 0 评论 -
太极圆圈的Mathematica生成
太极图的Mathematica代码转载 2016-09-29 20:23:21 · 640 阅读 · 0 评论 -
用Mathematica演示三角形外接圆Simson线的包络
用Mathematica演示三角形外接圆Simson线的包络c=Y Cos[1/2 (-h+u+v+w)]-(Cos[(v-w)/2] Sin[(h-u)/2]+Cos[(h-u)/2] Sin[h-v/2-w/2])-X Sin[1/2 (-h+u+v+w)]==0;(*Subscript[当\[Theta], 3]增加微小变量t的时候,Simson线也变成了另一条Simson线,这两条Sims原创 2017-08-02 15:10:11 · 994 阅读 · 0 评论 -
反演变换
OO={1/6,1/6};r[t_]:={5/3 Cos[t], Sin[t]}sol=Solve[(r[t]-OO).(x r[t]-OO)==1,x]M=x r[t]/.sol//FlattenParametricPlot[{r[t],M}//Evaluate,{t,0,2 Pi}] 以OO为反演中心,以1为反演半径,r[t]是一个椭圆,M就是r[t]的反演图形。原创 2017-08-02 18:19:18 · 1104 阅读 · 0 评论 -
暴力破解几何问题
设A的坐标是(x,y),B是(-a,0),C是(a,0),AE=a,那么: 测试一下: 显然,x=-y/Sqrt[3]不符合要求。原创 2017-08-10 15:27:01 · 424 阅读 · 0 评论 -
局部高亮怎么实现?
图片如下: 这个效果怎么实现? 不包括水印。原创 2017-08-10 18:08:40 · 662 阅读 · 0 评论 -
一个有趣的几何定理
D、E分别在AB、AC上,CD与BE交于F:如果AD+DF=AE+EF,且BF=CF,那么AB=AC。 设∠BAF=a,∠CAF=b,∠ABF=c,∠ACF=d,AF=1,可以求出各线段的长度:AD=FullSimplify[(Sin[(b+d)]*(Sin[(a+b+d)])^((-1))),Refine[0<a<Pi/2&&0<b<Pi/2&&0<c<Pi/2&&0<d<Pi/2&&0<a原创 2017-08-11 09:54:23 · 699 阅读 · 0 评论 -
等内切圆问题
三角形ABC,AB=AC,∠ABC=u,D、E是BC上的两点,∠BAD=2m,请验证:△ABD、△ADE、△AFC的内切圆半径相等的充要条件是: sin(3m+2u)=3sin(m)。 设AB=1,△ABD、△ADE、△AFC的内切圆半径分别是r1、r2、r3,那么:r1=FullSimplify[Abs[((Cos[((m*1/2)+(u*(-1/2)))]*(Sin[((m*1/2)+(原创 2017-08-11 10:57:13 · 465 阅读 · 0 评论 -
怎么绘制两条极坐标曲线的公共部分呢?
给定两条极坐标曲线,我们可以用Mathematica或者网络画板画出这两条曲线: ρ=1+cos(2*t) ρ=1+sin(t) 如果要画出这两条曲线内部的公共区域,应该怎么办呢?原创 2017-08-11 13:29:15 · 472 阅读 · 0 评论 -
把两条极坐标曲线变成一条曲线的方法
给出两条极坐标曲线: ρ=1 和 ρ=2 - cos(4 *t) 怎么把这两条曲线合为一条曲线? 分析过程见这里。原创 2017-08-11 13:49:10 · 371 阅读 · 0 评论 -
小工具
b =;img = ImageResize[b, 500](*img=Rasterize["无滑动\n \纯滚动",RasterSize\[Rule]600,ImageSize\[Rule]{500,365}]*)a = ImageAdd[img, RadialGradientImage[{Blue, Red, Darker@Green, Green, Blue}, Image原创 2017-08-20 21:01:44 · 223 阅读 · 0 评论 -
旋转三维图形
Mathematica内置的多面体数据怎么使用? 优快云的水印真牛叉。原创 2017-08-20 21:04:44 · 715 阅读 · 0 评论 -
中点的规律
演示过程,见这里——《用Mathematica演示“中点迭代”现象》和《中点的迭代——用网络画板演示一个著名几何定理》。 给出若干随机点:pl = RandomPoint[Circle[], 100];Graphics[Point[pl]] 顺次连接这些点:Graphics[{Point[pl],Line[pl]}] 如果依次取相邻点的中点,形成新的点集;重复这个过程,最后会趋向于一个椭圆。原创 2017-08-11 16:03:30 · 416 阅读 · 0 评论 -
用Mathematica计算曲面的第一基本形式
看这里——《用Mathematica研究曲面的第一基本形式》。原创 2017-08-14 15:25:18 · 1011 阅读 · 0 评论 -
动态迭代一例
先写几个字凑数。原创 2017-08-26 11:21:03 · 527 阅读 · 0 评论 -
头一次进来
过来看看。原创 2016-09-23 22:12:54 · 216 阅读 · 0 评论