小小泪 - 世界是无序的，我们必须规范自我，奋力挣扎才能不至于自我毁灭！

x = 20;
\[Alpha] = 30 \[Degree];
s = 5;
min = 0.1 x;
max = 0.5 x;
lines = Table[
   r = 2 s/a/Sin[\[Alpha]]; {{a, 0}, {r Cos[\[Alpha]], 
     r Sin[\[Alpha]]}}, {a, 0.1, x, 0.5}];
Animate[
 
 Graphics[{
   {Thickness[Large], 
    Line[{{x, 0}, {0, 0}, {x Cos[\[Alpha]], x Sin[\[Alpha]]}}]},
   {Red, Thickness[Large],
    Line[{{a, 0}, 2 s/a/Sin[\[Alpha]] { Cos[\[Alpha]], Sin[\[Alpha]]}}]
    }
   }], {{a, 1}, min, max}, AnimationDirection -> ForwardBackward]

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

x = 20;

\[Alpha] = 30 \[Degree];

s = 5;

min = 0.1 x;

max = 0.5 x;

lines = Table[

r = 2 s/a/Sin[\[Alpha]]; {{a, 0}, {r Cos[\[Alpha]],

r Sin[\[Alpha]]}}, {a, 0.1, x, 0.5}];

Animate[

Graphics[{

{Thickness[Large],

Line[{{x, 0}, {0, 0}, {x Cos[\[Alpha]], x Sin[\[Alpha]]}}]},

{Red, Thickness[Large],

Line[{{a, 0}, 2 s/a/Sin[\[Alpha]] { Cos[\[Alpha]], Sin[\[Alpha]]}}]

}

}], {{a, 1}, min, max}, AnimationDirection -> ForwardBackward]

多伦多大学的数学网站

5月 25, 201853 viewsVan Abel Leave a Comment

有点意思, 翻PDE的问题翻到的。 PDE课程: http://www.math… Continue Reading →

设置Firefox浏览PDF文件时自动适合页宽

5月 6, 201857 viewsVan Abel Leave a Comment

每次在线预览PDF时都要重新缩放比较麻烦,这里提供解决办法如下: 在地址栏输入a… Continue Reading →

2023年 11月
一	二	三	四	五	六	日
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30