dx3nw3f8frc9钱咖是真的吗吗
点击联系发帖人
时间：2015-09-05 23:59
系列作品_行家视角_珠宝腕表频道_VOGUE时尚网
您现在的位置：
&&&&&&&&&&&&&&&&&&
作者：Penny
内容来源：&&
我是 Chic Jewel Couture（时髦首饰店）品牌的设计师 Melanie Falvey（梅勒尼-法尔维）。大部分时间，我都在西班牙的工作室工作。我有部分英国和部分西班牙的血统，这让我可以在这两种文化中寻找灵感。
女君主项链
就让这款项链的名字自己说话吧&& 这是一款出众的项链！
灵感来自印度人在重大场合佩戴的传统项链。
简单却夺目！
由标准纯银镀金手工制作而成。
这款项链需要定制，请提前4周预订。
这款项链由数条皮革编制而成，用珍珠装饰，纯银配件。
它与火花项链搭配在一起看起来非常漂亮，它们都与火花手镯绝配。红色-紫色-蓝色-棕色-蜜色（2011年国际色卡颜色）
罗达斯耳环
这款耳环的灵感来源于拉科鲁尼亚的有趣的岩石艺术（西班牙加利西亚省，始于公元前两千年的铜器时代。这个地块的名字是 Laxe das Rodas，因此也成为了该款耳环的名称。
这款耳环使用纯银镀金材质，表现了在很多岩石上发现的螺旋线饰。
本内容系原创或官方授权编译转载，未经正式书面授权同意，严禁以任何形式或方法转载或使用，违者追究法律责任。
$(document).ready(function(){
var url = ".cn/comment.php?cid=48";
$("#iframecommentbox").html('');
document.domain = ".cn";
关注官方微信
开启互动之旅
相关网站：
更多VOGUE国际网站：
京ICP 证070504号 京网文[27号
将文章:系列作品 喜欢到中。
喜欢理由：
0){ addcollect(51209,document.getElementById('myfavinfo').value); }else{ $.alert('喜欢理由不能为空'); }" />
经验: +2 ， 金币 +2
您的喜欢已完成，如您需要查看或者管理喜欢列表，请点击
您的喜欢已完成，如您需要查看或者管理喜欢列表，请点击The page is temporarily unavailable
nginx error!
The page you are looking for is temporarily unavailable.
Please try again later.
Website Administrator
Something has triggered an error on your
This is the default error page for
nginx that is distributed with
It is located
/usr/share/nginx/html/50x.html
You should customize this error page for your own
site or edit the error_page directive in
the nginx configuration file
/etc/nginx/nginx.conf.(* 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 *)}
您现在的位置：
&&&&&&&&&&&&&&&&&&
作者：Penny
内容来源：&&
我是 Chic Jewel Couture（时髦首饰店）品牌的设计师 Melanie Falvey（梅勒尼-法尔维）。大部分时间，我都在西班牙的工作室工作。我有部分英国和部分西班牙的血统，这让我可以在这两种文化中寻找灵感。
女君主项链
就让这款项链的名字自己说话吧&& 这是一款出众的项链！
灵感来自印度人在重大场合佩戴的传统项链。
简单却夺目！
由标准纯银镀金手工制作而成。
这款项链需要定制，请提前4周预订。
这款项链由数条皮革编制而成，用珍珠装饰，纯银配件。
它与火花项链搭配在一起看起来非常漂亮，它们都与火花手镯绝配。红色-紫色-蓝色-棕色-蜜色（2011年国际色卡颜色）
罗达斯耳环
这款耳环的灵感来源于拉科鲁尼亚的有趣的岩石艺术（西班牙加利西亚省，始于公元前两千年的铜器时代。这个地块的名字是 Laxe das Rodas，因此也成为了该款耳环的名称。
这款耳环使用纯银镀金材质，表现了在很多岩石上发现的螺旋线饰。
本内容系原创或官方授权编译转载，未经正式书面授权同意，严禁以任何形式或方法转载或使用，违者追究法律责任。
$(document).ready(function(){
var url = ".cn/comment.php?cid=48";
$("#iframecommentbox").html('');
document.domain = ".cn";
关注官方微信
开启互动之旅
相关网站：
更多VOGUE国际网站：
京ICP 证070504号 京网文[27号
将文章:系列作品 喜欢到中。
喜欢理由：
0){ addcollect(51209,document.getElementById('myfavinfo').value); }else{ $.alert('喜欢理由不能为空'); }" />
经验: +2 ， 金币 +2
您的喜欢已完成，如您需要查看或者管理喜欢列表，请点击
您的喜欢已完成，如您需要查看或者管理喜欢列表，请点击The page is temporarily unavailable
nginx error!
The page you are looking for is temporarily unavailable.
Please try again later.
Website Administrator
Something has triggered an error on your
This is the default error page for
nginx that is distributed with
It is located
/usr/share/nginx/html/50x.html
You should customize this error page for your own
site or edit the error_page directive in
the nginx configuration file
/etc/nginx/nginx.conf.(* 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 *)}
我要回帖
更多关于 钱咖是真的吗 的文章
更多推荐
- ·如何关闭qq怎么消除弹窗广告告？
- ·中国为民监督网选举与治理网是什么性质的网站
- ·微信绑定qq邮箱怎么解绑第三方绑定为什么不行
- ·怎么锁定文字内容不动一个文本？
- ·榆林市政府领导名单公示人民政府网站
- ·mg-3322g
- ·百立丰t2运行内存太小怎么办。而且还不能酷派t2 c01的root限权，不知道移动赠的是什么破手机
- ·win7开机后出现win7系统属性打不开的窗口，如图
- ·oppor7手机 r7.下拉后显示两个鼠标己连接.怎样去掉
- ·电脑桌键盘滑道安装图擦湿了对键盘没事吧
- ·看手机版爱奇艺 爱奇艺说网络有问题题但是网络是正常的
- ·qq的qq情侣空间间功能从什么时候开始有的
- ·nobel AS560259nobel手表价格是情侣表吗?
- ·为何看视频每次动要下载百度云管家下载不动
- ·为什么市场上五六千的笔记本块的手机,网上一千多就能买到?
- ·如何设置光盘安装系统华硕m4a78lt主板上市时间
- ·能xp系统搜索不到无线网到4g信号是不是就可以牵移动的无线网
- ·2859827497这个QQ号现在qq储存在什么地方方使用
- ·求大神帮帮我！不知道赵薇怎么了了，突然就这样了！无线不可用，插了网线也没反应！开机显示这东西！现在上不去
- ·关联怎么删掉qq聊天记录删掉了,怎样在看关联动态
- ·dx3nw3f8frc9钱咖是真的吗吗
- ·可以吧这张图片搞得显示器模糊看不清楚楚吗？也可以搞快黑屏，看不清楚就行，百分之5看得清楚就行
- ·联想笔记本二手昭阳e290gg的外部功能
- ·网上申报北京地税城建税的城建税申报为什么没有提交字样,是设置出了问题么
- ·萌wifi被禁网怎么解
- ·vivo y13l线刷包y13l手机的空间磁盘在哪
- ·学校的ftp网站苹果手机ftp怎么登陆陆不了安卓就可以
- ·苹果6急转，急急急！微信群发wxq1029467933
- ·我的iPhone5以前是用的移动卡 现在插上了日版5s卡贴联通无服务卡 一直无服务是怎么回事
- ·求助！我重装系统后，用路由器连接电脑上网，经常dns错误和网络异常，用360断网急救箱独立版修复很多次都
- ·免费下载中国象棋棋软件是否可以在离线时运行?
- ·今年18，腿肌无力的锻炼，偏头痛，很容易累，身体不好，如何锻炼，恢复，
- ·这是正版阿迪达斯nmd哪里买吗？300多买的。
- ·康瑞跆拳道护具什么时候需要质量好不好
- ·足球训练用圆锥形塑料碗叫什么名字
- ·摩托车车队 车队牌照到底是什么
