《超越学科的认知基础》2015张世超学习报告第六周

来自iCenter Wiki
跳转至: 导航搜索

关键词

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]