コード例 #1
0
ファイル: fadvance.c プロジェクト: stephanmg/neuron
fmatrix() {
	if (ifarg(1)) {
		extern Node* node_exact(Section*, double);
		double x = chkarg(1, 0., 1.);
		int id = (int)chkarg(2, 1., 4.);
		Node* nd = node_exact(chk_access(), x);
		NrnThread* _nt = nd->_nt;
		switch (id) {
		case 1: ret(NODEA(nd)); break;
		case 2: ret(NODED(nd)); break;
		case 3: ret(NODEB(nd)); break;
		case 4: ret(NODERHS(nd)); break;
		}
		return;
	}
	nrn_print_matrix(nrn_threads);
	ret(1.);
}
コード例 #2
0
ファイル: fadvance.c プロジェクト: bhache/pkg-neuron
fmatrix() {
	nrn_print_matrix(nrn_threads);
	ret(1.);
}