S ome songs - 歌单 - 网易云音乐
S ome songs
播放：1241次
喜欢这个歌单的人
网易云音乐多端下载
同步歌单，随时畅听320k好音乐
网易公司版权所有(C)杭州乐读科技有限公司运营：cz[RAXXZSZZRZZzsdasxdsszxzsasx_游戏百科 -【百科知识集】
cz[RAXXZSZZRZZzsdasxdsszxzsasx
编辑: 百科知识集 &&&来源:用户发布&&&发布时间:&&&查看次数:29
cz[RAXXZSZZRZZzsdasxdsszxzsasx哎哈
【网友回答】
该问题暂无回答。
游戏百科相关
更多相关内容
本站内容来自用户发布，本站无法保证其部分内容的正确性，请用户一定仔细辨别！
[] &&[联系QQ：] &
豫ICP备号&西瓜萝卜都是菜喜欢的音乐 - 歌单 - 网易云音乐
西瓜萝卜都是菜喜欢的音乐
播放：1456次
网易云音乐多端下载
同步歌单，随时畅听320k好音乐
网易公司版权所有(C)杭州乐读科技有限公司运营：钢琴 蓝调 - 歌单 - 网易云音乐
播放：118次
喜欢这个歌单的人
网易云音乐多端下载
同步歌单，随时畅听320k好音乐
网易公司版权所有(C)杭州乐读科技有限公司运营：(* Content-type: application/mathematica *)
(*** Wolfram Notebook File ***)
(* CreatedBy='Mathematica 6.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[
NotebookDataLength[
NotebookOptionsPosition[
NotebookOutlinePosition[
CellTagsIndexPosition[
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell["\", "Section"],
Cell["Uses Dynamic updating.", "Text",
CellChangeTimes->{3.921*^9}],
Cell[TextData[{
StyleBox["Mathematica",
FontSlant->"Italic"],
"-based development, covering passive and active properties of neuron \
signaling behavior, see: \
http://physics.uwa.edu.au/pub/Biophysics/Assignments/Action.nb"
}], "Text"],
Cell[TextData[{
"For a java demo see: ",
ButtonBox["http://www.afodor.net/HHModel.htm",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://www.afodor.net/HHModel.htm"], None}]
}], "Text"],
Cell["\", "Text",
CellChangeTimes->{{3.962*^9, 3.35*^9}}],
Cell[CellGroupData[{
Cell["The equivalent circuit diagram", "Subsubsection"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "Graphics",
Evaluatable->False,
ImageSize->{285., 188.5},
ImageMargins->{{33., 0.}, {0., 9.5}}]
Cell[CellGroupData[{
Cell["\", "Subsubsection"],
Cell[CellGroupData[{
Cell[GraphicsData["CompressedBitmap", "\"], "Graphics",
Evaluatable->False,
ImageSize->{269., 42.25}],
Cell[GraphicsData["CompressedBitmap", "\"], "Graphics",
Evaluatable->False,
ImageSize->{318, 197.625},
ImageMargins->{{0, 0}, {0, 13.875}},
ImageRegion->{{0, 1}, {0, 1}}]
Cell["Conductances g are equal to 1/R. ", "Text"]
Cell[CellGroupData[{
Cell["Voltage-dependent rate constants", "Subsubsection"],
Cell["Empirically determined.", "Text"],
Cell[BoxData[{
SubscriptBox["\[Alpha]", "m"], "[", "v_", "]"}], ":=",
FractionBox[
RowBox[{"0.1", " ",
RowBox[{"(",
RowBox[{"25", "-", "v"}], ")"}]}],
RowBox[{"Exp", "[",
FractionBox[
RowBox[{"25", "-", "v"}], "10"], "]"}], "-", "1"}]]}],
";"}], "\[IndentingNewLine]",
SubscriptBox["\[Alpha]", "n"], "[", "v_", "]"}], ":=",
FractionBox[
RowBox[{"0.01", " ",
RowBox[{"(",
RowBox[{"10", "-", "v"}], ")"}]}],
RowBox[{"Exp", "[",
FractionBox[
RowBox[{"10", "-", "v"}], "10"], "]"}], "-", "1"}]]}],
";"}], "\[IndentingNewLine]",
SubscriptBox["\[Alpha]", "h"], "[", "v_", "]"}], ":=",
RowBox[{"0.07", " ",
RowBox[{"Exp", "[",
RowBox[{"-",
FractionBox["v", "20"]}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
SubscriptBox["\[Beta]", "m"], "[", "v_", "]"}], ":=",
RowBox[{"4", " ",
RowBox[{"Exp", "[",
RowBox[{"-",
FractionBox["v", "18"]}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
SubscriptBox["\[Beta]", "n"], "[", "v_", "]"}], ":=",
RowBox[{"0.125", " ",
RowBox[{"Exp", "[",
RowBox[{"-",
FractionBox["v", "80"]}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
SubscriptBox["\[Beta]", "h"], "[", "v_", "]"}], ":=",
FractionBox["1",
RowBox[{"Exp", "[",
FractionBox[
RowBox[{"30", "-", "v"}], "10"], "]"}], "+",
"1"}]]}], "\[IndentingNewLine]",
SubscriptBox[
RowBox[{"(", "i_", ")"}], "\[Infinity]"], "[", "v_", "]"}], ":=",
FractionBox[
SubscriptBox["\[Alpha]", "i"], "[", "v", "]"}],
SubscriptBox["\[Alpha]", "i"], "[", "v", "]"}], "+",
SubscriptBox["\[Beta]", "i"], "[", "v", "]"}]}]]}]}], "Input"]
Cell[CellGroupData[{
Cell["Constants", "Subsubsection"],
Cell["\", "Text"],
Cell[TextData[{
"The parameter values below are in the units: ",
Cell[BoxData[
RowBox[{"mS", "/",
SuperscriptBox["cm", "2"]}], ",", " ",
RowBox[{"\[Mu]F", "/",
SuperscriptBox["cm", "2"]}], ",", " ", "mV"}], TraditionalForm]]],
}], "Text"],
Cell[BoxData[{
SubscriptBox[
OverscriptBox["g", "_"], "Na"], "=", "120.0"}],
";"}], "\[IndentingNewLine]",
SubscriptBox[
OverscriptBox["g", "_"], "K"], "=", "36.0"}],
";"}], "\[IndentingNewLine]",
SubscriptBox["g", "leak"], "=", "0.3"}], ";"}], "\[IndentingNewLine]",
RowBox[{"\[ScriptCapitalC]", "=", "1"}], ";"}], "\[IndentingNewLine]",
SubscriptBox["\[ScriptCapitalE]", "Na"], "=", "115"}],
";"}], "\[IndentingNewLine]",
SubscriptBox["\[ScriptCapitalE]", "K"], "=",
RowBox[{"-", "12"}]}], ";"}], "\[IndentingNewLine]",
SubscriptBox["\[ScriptCapitalE]", "leak"], "=", "10.6"}], ";"}]}], "Input"]
Cell[CellGroupData[{
Cell["Setting up the equations", "Subsubsection"],
Cell["Time is in msec.", "Text"],
Cell[BoxData[{
SubscriptBox["g", "Na"], "[", "t_", "]"}], "=",
SubscriptBox[
OverscriptBox["g", "_"], "Na"],
SuperscriptBox[
RowBox[{"m", "[", "t", "]"}], "3"],
RowBox[{"h", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]",
SubscriptBox["g", "K"], "[", "t_", "]"}], "=",
SubscriptBox[
OverscriptBox["g", "_"], "K"],
SuperscriptBox[
RowBox[{"n", "[", "t", "]"}], "4"]}]}], ";"}]}], "Input"],
Cell[BoxData[
RowBox[{"HHequations", ":=",
RowBox[{"{", "\n", "\t\t",
SuperscriptBox["m", "\[Prime]"], "[", "t", "]"}], "==",
SubscriptBox["\[Alpha]", "m"], "[",
RowBox[{"v", "[", "t", "]"}], "]"}], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"m", "[", "t", "]"}]}], ")"}]}], "-",
SubscriptBox["\[Beta]", "m"], "[",
RowBox[{"v", "[", "t", "]"}], "]"}], " ",
RowBox[{"m", "[", "t", "]"}]}]}]}], ",", "\n", "\t\t",
SuperscriptBox["n", "\[Prime]"], "[", "t", "]"}], "==",
SubscriptBox["\[Alpha]", "n"], "[",
RowBox[{"v", "[", "t", "]"}], "]"}], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"n", "[", "t", "]"}]}], ")"}]}], "-",
SubscriptBox["\[Beta]",
RowBox[{"n", " "}]], "[",
RowBox[{"v", "[", "t", "]"}], "]"}], " ",
RowBox[{"n", "[", "t", "]"}]}]}]}], ",", "\n", "\t\t",
SuperscriptBox["h", "\[Prime]"], "[", "t", "]"}], "==",
SubscriptBox["\[Alpha]", "h"], "[",
RowBox[{"v", "[", "t", "]"}], "]"}], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"h", "[", "t", "]"}]}], ")"}]}], "-",
SubscriptBox["\[Beta]", "h"], "[",
RowBox[{"v", "[", "t", "]"}], "]"}], " ",
RowBox[{"h", "[", "t", "]"}]}]}]}], ",",
RowBox[{"\[ScriptCapitalC]", " ",
SuperscriptBox["v", "\[Prime]",
MultilineFunction->None], "[", "t", "]"}]}], "+",
SubscriptBox["g", "Na"], "[", "t", "]"}],
RowBox[{"(",
RowBox[{"v", "[", "t", "]"}], "-",
SubscriptBox["\[ScriptCapitalE]", "Na"]}], ")"}]}], "+",
SubscriptBox["g", "K"], "[", "t", "]"}],
RowBox[{"(",
RowBox[{"v", "[", "t", "]"}], "-",
SubscriptBox["\[ScriptCapitalE]", "K"]}], ")"}]}], "+",
SubscriptBox["g", "leak"],
RowBox[{"(",
RowBox[{"v", "[", "t", "]"}], "-",
SubscriptBox["\[ScriptCapitalE]", "leak"]}], ")"}]}]}], "\[Equal]",
RowBox[{"i", "[", "t", "]"}]}]}], "}"}]}], ";"}]], "Input"],
Cell[BoxData[
RowBox[{"initialvalues", "=",
RowBox[{"{",
RowBox[{"v", "[", "0", "]"}], "==", "0"}], ",",
RowBox[{"m", "[", "0", "]"}], "==",
SubscriptBox["m", "\[Infinity]"], "[", "0", "]"}]}], ",",
RowBox[{"n", "[", "0", "]"}], "==",
SubscriptBox["n", "\[Infinity]"], "[", "0", "]"}]}], ",",
RowBox[{"h", "[", "0", "]"}], "==",
SubscriptBox["h", "\[Infinity]"], "[", "0", "]"}]}]}], "}"}]}],
";"}]], "Input"]
Cell[CellGroupData[{
Cell[TextData[{
"Simulating the response to a pair of depolarizing
current pulses with a \
peak current density of ",
StyleBox["Imax",
FontColor->RGBColor[
0.5, 0.7309]],
Cell[BoxData[
RowBox[{"\[Mu]A", "/",
SuperscriptBox["cm", "2"]}], TraditionalForm]]],
", each lasting ",
StyleBox["pulsewidth",
FontSlant->"Italic",
FontColor->RGBColor[
0.5, 0.7309]],
" msec separated by ",
StyleBox["delay",
FontSlant->"Italic",
FontColor->RGBColor[
0.5, 0.7309]],
}], "Subsubsection"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Manipulate", "[",
RowBox[{"Module", "[",
RowBox[{"{", "}"}], ",", "\[IndentingNewLine]",
RowBox[{"i", "[", "t_", "]"}], ":=",
RowBox[{"If", "[",
RowBox[{"(",
RowBox[{"t", "\[GreaterEqual]", "5"}], "&&",
RowBox[{"t", "\[LessEqual]",
RowBox[{"5", "+", "pulsewidth"}]}]}], ")"}], "||",
RowBox[{"(",
RowBox[{"t", "\[GreaterEqual]",
RowBox[{"5", "+", "pulsewidth", "+", "delay"}]}], "&&",
RowBox[{"t", "\[LessEqual]",
"5", "+", "pulsewidth", "+", "delay", "+", "pulsewidth"}]}]}],
")"}]}], ",", "Imax", ",", "0"}], "]"}]}], ";",
RowBox[{"solution", "=",
RowBox[{"NDSolve", "[",
RowBox[{"{",
RowBox[{"HHequations", ",", "initialvalues"}], "}"}], ",",
RowBox[{"{",
RowBox[{"v", ",", "m", ",", "n", ",", "h"}], "}"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0", ",", "100"}], "}"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"GraphicsGrid", "[",
RowBox[{"{",
RowBox[{"{",
RowBox[{"Plot", "[",
RowBox[{"i", "[", "t", "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "1", ",", "100"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"0", ",", "20."}], "}"}]}]}], "]"}], ",", "\n",
RowBox[{"Plot", "[",
RowBox[{"v", "[", "t", "]"}], "/.", "\[InvisibleSpace]",
"solution"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "1", ",", "100"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"-", "30"}], ",", "130"}], "}"}]}]}], "]"}]}], "}"}],
"}"}], "]"}]}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"{",
RowBox[{"Imax", ",", "10."}], "}"}], ",", "1.", ",", "20."}], "}"}],
RowBox[{"{",
RowBox[{"{",
RowBox[{"pulsewidth", ",", "43."}], "}"}], ",", "0.", ",", "50."}],
"}"}], ",",
RowBox[{"{",
RowBox[{"{",
RowBox[{"delay", ",", "1."}], "}"}], ",", "1.", ",", "80."}], "}"}]}],
"]"}]], "Input"],
Cell[BoxData[
DynamicModuleBox[{$CellContext`delay$$ = 1., $CellContext`Imax$$ =
10., $CellContext`pulsewidth$$ = 43., Typeset`show$$ = True,
Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
"\"untitled\"", Typeset`specs$$ = {{{
Hold[$CellContext`Imax$$], 10.}, 1., 20.}, {{
Hold[$CellContext`pulsewidth$$], 43.}, 0., 50.}, {{
Hold[$CellContext`delay$$], 1.}, 1., 80.}}, Typeset`size$$ = {
360., {57., 62.}}, Typeset`update$$ = 0, Typeset`initDone$$,
Typeset`skipInitDone$$ = True, $CellContext`Imax$80575$$ =
0, $CellContext`pulsewidth$80576$$ = 0, $CellContext`delay$80577$$ = 0},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm,
"Variables" :> {$CellContext`delay$$ = 1., $CellContext`Imax$$ =
10., $CellContext`pulsewidth$$ = 43.}, "ControllerVariables" :> {
Hold[$CellContext`Imax$$, $CellContext`Imax$80575$$, 0],
Hold[$CellContext`pulsewidth$$, $CellContext`pulsewidth$80576$$, 0],
Hold[$CellContext`delay$$, $CellContext`delay$80577$$, 0]},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :> Module[{}, $CellContext`i[
Pattern[$CellContext`t$,
Blank[]]] := If[
And[$CellContext`t$ >= 5, $CellContext`t$ =
5 + $CellContext`pulsewidth$$ + $CellContext`delay$$, \
$CellContext`t$
{0, 20.}],
ReplaceAll[
$CellContext`v[$CellContext`t], $CellContext`solution], \
{$CellContext`t, 1, 100}, PlotRange -> {-30, 130}]}}]],
"Specifications" :> {{{$CellContext`Imax$$, 10.}, 1.,
20.}, {{$CellContext`pulsewidth$$, 43.}, 0.,
50.}, {{$CellContext`delay$$, 1.}, 1., 80.}}, "Options" :> {},
"DefaultOptions" :> {}],
ImageSizeCache->{405., {129., 134.}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
SynchronousInitialization->True,
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{3.572*^9}]
Cell[CellGroupData[{
Cell["References", "Section"],
Cell[TextData[{
"Hodgkin, A. L., & Huxley, A. F. (1952). A quantitative description of \
membrane current and its application to conduction and excitation in nerve. \
StyleBox["J. Physiol. (Lond.), 117",
FontSlant->"Italic"],
", 500-544.\n\n \
http://physics.uwa.edu.au/pub/Biophysics/Assignments/Action.nb\n"
}], "Text"]
CellGrouping->Manual,
WindowSize->{912, 821},
WindowMargins->{{194, Automatic}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (June 27, \
StyleDefinitions->"Default.nb"
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
(*CellTagsIndex
CellTagsIndex->{}
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 91, 2, 64, "Section"],
Cell[639, 24, 80, 1, 27, "Text"],
Cell[722, 27, 251, 7, 49, "Text"],
Cell[976, 36, 196, 6, 30, "Text"],
Cell[8, 5, 30, "Text"],
Cell[CellGroupData[{
Cell[, 0, 35, "Subsubsection"],
Cell[8, 3, 30, "Text"],
Cell[45, 157, 206, "Graphics",
Evaluatable->False]
Cell[CellGroupData[{
Cell[1, 358, 6, 107, "Subsubsection"],
Cell[CellGroupData[{
Cell[1, 3, 51, "Graphics",
Evaluatable->False],
Cell[4, 04, 220, "Graphics",
Evaluatable->False]
Cell[93, 49, 0, 30, "Text"]
Cell[CellGroupData[{
Cell[98, 57, 0, 35, "Subsubsection"],
Cell[00, 39, 0, 30, "Text"],
Cell[02, 7, "Input"]
Cell[CellGroupData[{
Cell[78, 34, 0, 35, "Subsubsection"],
Cell[80, 202, 10, 182, "Text"],
Cell[92, 289, 10, 35, "Text"],
Cell[04, 780, 26, 135, "Input"]
Cell[CellGroupData[{
Cell[35, 49, 0, 35, "Subsubsection"],
Cell[37, 32, 0, 30, "Text"],
Cell[39, 534, 19, 53, "Input"],
Cell[60, , "Input"],
Cell[43, 594, 19, 28, "Input"]
Cell[CellGroupData[{
Cell[67, 677, 22, 62, "Subsubsection"],
Cell[CellGroupData[{
Cell[93, 8, "Input"],
Cell[68, 0, "Output"]
Cell[CellGroupData[{
Cell[36, 29, 0, 64, "Section"],
Cell[38, 329, 8, 106, "Text"]
(* End of internal cache information *)