“《超越学科的认知基础》2015张世超学习报告第六周”版本间的差异

（Created page with " == 关键词 == '''Mathematica'''[https://en.wikipedia.org/wiki/Mathematica] == 学习报告 == ===Mathematica 指令表==="）
 
Wikiadmin（讨论 | 贡献）
小 （34个版本：all）
 
（1位用户的33个中间修订版本未显示）
第1行： 第1行：
  
 
== 关键词 ==
 
== 关键词 ==
−
'''Mathematica'''[https://en.wikipedia.org/wiki/Mathematica]
+
'''Mathematica'''[https://en.wikipedia.org/wiki/Mathematica] '''Metaphor'''[https://en.wikipedia.org/wiki/Metaphor]
  
 
== 学习报告 ==
 
== 学习报告 ==
−
===Mathematica 指令表===
+
===隐喻===
 +
*隐喻性概念的系统化
 +
[[File:隐喻概念的系统性结构.jpg|400px]]
 +
[[File:经验基础.jpg|400px]]
 +
**隐喻性表达和隐喻性概念系统紧密相连，隐喻性概念的适用离不开其整体概念系统的构建。为了更好地阐述什么是隐喻性概念系统，我们首先要了解隐喻概念的基础。
 +
{| class="wikitable"
 +
!colspan="8"|隐喻的基础
 +
|-
 +
|隐喻的基础
 +
|身体基础（Physical basis)
 +
|经验基础
 +
|社会基础（Social basis）
 +
|-
 +
|含义
 +
|通过人的身体姿势以及动作暗含着的某种隐喻意义。
 +
|人的日常生活经验和常识构成的基础。
 +
|文化样态下的人们的文化传统思维
 +
|-
 +
|举例
 +
|低垂的姿势通常与悲伤联系在一起，挺直的姿势则表达一种积极的情感。（他陷入昏迷：He sank into a coma.)人类睡觉时是躺着的，清醒时是站立的;严重的疾病迫使人躺下，死的时候身体是完全躺下的。体型通常和身体力量相关，在斗争中获胜者往往处于上方等。
 +
|“更多为上，更少为下”“理性化为上，情绪化为下。”
 +
|比如在我们的社会文化中，时间是宝贵的，因此就有了十佳就是金钱，时间是有限的资源，时间是宝贵的商品等概念。
 +
|}
 +
===关于隐喻概念前景化、连贯性以及系统性的结论===
 +
*大多数基本概念是根据一个或多个空间化隐喻组织而成的。
 +
*每个空间化隐喻内部具备系统性。
 +
*空间化隐喻的系统性存在一个全局外部系统性，决定隐喻中的连贯性。
 +
*空间化隐喻扎根于物理和文化经验中。
 +
*隐喻存在很多可能的身体和社会基础。
 +
*隐喻的身体基础和文化基础难以区分。
 +
 
 +
 
 +
===Mathematica简介===
 +
Mathematica是一款由Stephen Wolfram[[https://en.wikipedia.org/wiki/Stephen_Wolfram]和他的团队共同研发的算符计算程序（Symbolic computing program),也叫做计算机代数程序（computer algebra program).其强大的功能不仅可以处理2D空间的算符、向量、代数问题，还可以进行3D图像的合成。这个软件本身就是一个隐喻的转换器，通过各种数字符号的输入从而导出各种我们认知领域内的图像、数字结果。
 +
 
 +
===Mathematica 指令表[https://www.teambition.com/project/55e87360f31d7ebb58c0c24a/files/55e87360f31d7ebb58c0c250/work/5615d75952f8ca117801b40e]===
 +
 
 +
{| class="wikitable"
 +
!colspan="8"|Mathematica 指令表
 +
|-
 +
|操作
 +
|指令
 +
|-
 +
|enter i
 +
|type esc-ii-esc
 +
|-
 +
|enter square root
 +
|control -2
 +
|-
 +
|enter "e"
 +
|esc-ee-esc
 +
|-
 +
|power
 +
|control-6
 +
|-
 +
|fraction
 +
|control-forwardslash
 +
|-
 +
|evaluate
 +
|shift-return
 +
|-
 +
|new line
 +
|return
 +
|-
 +
|alias for the last output expression
 +
|%
 +
|-
 +
|make substitution
 +
|/.
 +
|-
 +
|Expand
 +
|Expand[  ]
 +
|-
 +
|Simplify x²+(2x²+sin(x))
 +
|Simplify[x²+(2x²+sin[x])]
 +
|-
 +
|Factorise
 +
|Factor[x²-1]
 +
|-
 +
|Evaluate πto decimal places
 +
|N[π，100]
 +
|-
 +
|poly=1+3x+5x³+6sin[x]
 +
|poly=1+3x+5x³+6sin[x]
 +
|-
 +
|extract the coefficient
 +
|Coefficient[poly,x²]
 +
|-
 +
|Solve the equation z=x²+1 for x (remember to use == not =)
 +
|z==x²+1
 +
|-
 +
|Solve the system of equations:x+y+z=1 x-y=2
 +
|Solve[x+y+z==1&&x-y==2,{x,y,z}]
 +
|-
 +
!colspan="8"|complex numbers                     
 +
|-
 +
|absolute value
 +
|Abs[z]
 +
|-
 +
|Argument value
 +
|Arg[z]
 +
|-
 +
|Complex conjugate
 +
|Conjugate[z]
 +
|-
 +
|Imaginary
 +
|Im[z]
 +
|-
 +
|real component
 +
|Re[z]
 +
|-
 +
!colspan="8"|Linear algebra
 +
|-
 +
|Define a 2*2 matrix A with elements 1,2,3,4 and a 2 element vector v with element v1 and v2.
 +
|A={[1,2],[3,4]} v={v1,v2} A//MatrixForm
 +
|-
 +
|Determinant
 +
|Det[A]
 +
|-
 +
|Mutiply the matrix A by the Vector v.
 +
|A.v %//MatrixForm
 +
|-
 +
|Inverse
 +
|Inverse[A]//MatrixForm
 +
|-
 +
|MatrixPower
 +
|[A,2]//MatrixForm  or A²//MatrixForm
 +
|-
 +
|Transpose
 +
|Transpose[A]//MatrixForm
 +
|-
 +
|Extract
 +
|A[[1]]//MatrixForm
 +
|-
 +
|Make a 10×10 matrix and automatically populate if with a formula.
 +
|M=Table[i*j+sin[i+j},{i,1,10},{j,1,10}];M//MatrixForm
 +
|-
 +
|data={1,2,3,4,5}
 +
|av2[v_]:=Total[v]/Length[v];av2[data]
 +
|-
 +
!colspan="8"|Function
 +
|-
 +
|Define a function;f[x_]:=cos[x]+sin[x];g[x_]:=cos[x]-2;
 +
|Evaluate+for x =1;N[f[1],500]
 +
|-
 +
|Average:Write a function av(v)
 +
|evaluate it for {1,2,3,4,5}
 +
|-
 +
!colspan="8"|Plotting
 +
|-
 +
|Plot the function sin(x) in the range 0<x<5
 +
|Plot [sin[x],{x,0,5}]
 +
|-
 +
|Superimpose the plots of sin(x) and cos(x)
 +
|Plot[{sin[x],cos[x]},{x,0,10}]
 +
|-
 +
|Make a 3D plot of sin(x)cosxy over the range 0<x<5,0<y<5
 +
|Plot 3D[sin[x]Cos[y],{x,0,5},{y,0,5}]
 +
|-
 +
|Change the font size and disale the mesh
 +
|Plot3D[sin[x]cos[y],{x,0,5},{y,0,5}] BaseStyle→{FontSize→14}
 +
|-
 +
|Make a density plot
 +
|DensityPlot[sin[x]cos[y],{x,0,5}]
 +
|-
 +
|Make a parametric plot in 3D x=cos(t), y=sin(t) z=t {t,0,4π}]
 +
|ParametricPlot3D[{cos[t],sin[t],t]
 +
|-
 +
!colspan="8"|Calculus
 +
|-
 +
|Solving the differential equations
 +
|Dsolve[ ]
 +
|-
 +
|Derivatives
 +
|D[sin[x],x]
 +
|-
 +
|Take the indefinite integral
 +
|Integrate[sin[x],x]
 +
|-
 +
!colspan="8"|Sums
 +
|-
 +
|Add up number i² from 0≤i≤n
 +
|Sum[i²,{i,1,n}]
 +
|-
 +
!colspan="8"|Flow control
 +
|-
 +
|Step function,if x>0, +1,if x<0 -1,if x=0 ,1
 +
|d[x_]:=If[x>0,1,0] d[1],d[-1]
 +
|}
 +
 
 +
==参考文献==
 +
*外部链接：
 +
**维基词条'''Mathematica'''[https://en.wikipedia.org/wiki/Mathematica]
 +
**维基词条'''Metaphor'''[https://en.wikipedia.org/wiki/Metaphor]
 +
**维基词条'''Steve Wolfram'''[https://en.wikipedia.org/wiki/Stephen_Wolfram]
 +
*书籍： 《我们赖以生存的隐喻》[美]乔治·莱考夫 马克·约翰逊 著  何文忠 译  浙江大学出版社 P1-20
 +
*视频：《Introduction to Mathematica》 [https://www.teambition.com/project/55e87360f31d7ebb58c0c24a/files/55e87360f31d7ebb58c0c250/work/5615d75952f8ca117801b40e]

2016年4月6日 (三) 03:01的最后版本

关键词

Mathematica[1] Metaphor[2]

学习报告

隐喻

  • 隐喻性概念的系统化

400px 400px

    • 隐喻性表达和隐喻性概念系统紧密相连，隐喻性概念的适用离不开其整体概念系统的构建。为了更好地阐述什么是隐喻性概念系统，我们首先要了解隐喻概念的基础。
隐喻的基础
隐喻的基础 身体基础（Physical basis) 经验基础 社会基础（Social basis）
含义 通过人的身体姿势以及动作暗含着的某种隐喻意义。 人的日常生活经验和常识构成的基础。 文化样态下的人们的文化传统思维
举例 低垂的姿势通常与悲伤联系在一起，挺直的姿势则表达一种积极的情感。（他陷入昏迷：He sank into a coma.)人类睡觉时是躺着的，清醒时是站立的;严重的疾病迫使人躺下，死的时候身体是完全躺下的。体型通常和身体力量相关，在斗争中获胜者往往处于上方等。 “更多为上，更少为下”“理性化为上，情绪化为下。” 比如在我们的社会文化中，时间是宝贵的，因此就有了十佳就是金钱，时间是有限的资源，时间是宝贵的商品等概念。

关于隐喻概念前景化、连贯性以及系统性的结论

  • 大多数基本概念是根据一个或多个空间化隐喻组织而成的。
  • 每个空间化隐喻内部具备系统性。
  • 空间化隐喻的系统性存在一个全局外部系统性，决定隐喻中的连贯性。
  • 空间化隐喻扎根于物理和文化经验中。
  • 隐喻存在很多可能的身体和社会基础。
  • 隐喻的身体基础和文化基础难以区分。


Mathematica简介

Mathematica是一款由Stephen Wolfram[[3]和他的团队共同研发的算符计算程序（Symbolic computing program),也叫做计算机代数程序（computer algebra program).其强大的功能不仅可以处理2D空间的算符、向量、代数问题，还可以进行3D图像的合成。这个软件本身就是一个隐喻的转换器，通过各种数字符号的输入从而导出各种我们认知领域内的图像、数字结果。

Mathematica 指令表[4]

Mathematica 指令表
操作 指令
enter i type esc-ii-esc
enter square root control -2
enter "e" esc-ee-esc
power control-6
fraction control-forwardslash
evaluate shift-return
new line return
alias for the last output expression %
make substitution /.
Expand Expand[ ]
Simplify x²+(2x²+sin(x)) Simplify[x²+(2x²+sin[x])]
Factorise Factor[x²-1]
Evaluate πto decimal places N[π，100]
poly=1+3x+5x³+6sin[x] poly=1+3x+5x³+6sin[x]
extract the coefficient Coefficient[poly,x²]
Solve the equation z=x²+1 for x (remember to use == not =) z==x²+1
Solve the system of equations:x+y+z=1 x-y=2 Solve[x+y+z==1&&x-y==2,{x,y,z}]
complex numbers
absolute value Abs[z]
Argument value Arg[z]
Complex conjugate Conjugate[z]
Imaginary Im[z]
real component Re[z]
Linear algebra
Define a 2*2 matrix A with elements 1,2,3,4 and a 2 element vector v with element v1 and v2. A={[1,2],[3,4]} v={v1,v2} A//MatrixForm
Determinant Det[A]
Mutiply the matrix A by the Vector v. A.v %//MatrixForm
Inverse Inverse[A]//MatrixForm
MatrixPower [A,2]//MatrixForm or A²//MatrixForm
Transpose Transpose[A]//MatrixForm
Extract A1//MatrixForm
Make a 10×10 matrix and automatically populate if with a formula. M=Table[i*j+sin[i+j},{i,1,10},{j,1,10}];M//MatrixForm
data={1,2,3,4,5} av2[v_]:=Total[v]/Length[v];av2[data]
Function
Define a function;f[x_]:=cos[x]+sin[x];g[x_]:=cos[x]-2; Evaluate+for x =1;N[f[1],500]
Average:Write a function av(v) evaluate it for {1,2,3,4,5}
Plotting
Plot the function sin(x) in the range 0<x<5 Plot [sin[x],{x,0,5}]
Superimpose the plots of sin(x) and cos(x) Plot[{sin[x],cos[x]},{x,0,10}]
Make a 3D plot of sin(x)cosxy over the range 0<x<5,0<y<5 Plot 3D[sin[x]Cos[y],{x,0,5},{y,0,5}]
Change the font size and disale the mesh Plot3D[sin[x]cos[y],{x,0,5},{y,0,5}] BaseStyle→{FontSize→14}
Make a density plot DensityPlot[sin[x]cos[y],{x,0,5}]
Make a parametric plot in 3D x=cos(t), y=sin(t) z=t {t,0,4π}] ParametricPlot3D[{cos[t],sin[t],t]
Calculus
Solving the differential equations Dsolve[ ]
Derivatives D[sin[x],x]
Take the indefinite integral Integrate[sin[x],x]
Sums
Add up number i² from 0≤i≤n Sum[i²,{i,1,n}]
Flow control
Step function,if x>0, +1,if x<0 -1,if x=0 ,1 d[x_]:=If[x>0,1,0] d[1],d[-1]

参考文献

  • 外部链接：
    • 维基词条Mathematica[5]
    • 维基词条Metaphor[6]
    • 维基词条Steve Wolfram[7]
  • 书籍： 《我们赖以生存的隐喻》[美]乔治·莱考夫 马克·约翰逊 著 何文忠 译 浙江大学出版社 P1-20
  • 视频：《Introduction to Mathematica》 [8]
最后修改于2016年4月6日 (星期三) 03:01