代码搜索:Spline
找到约 2,868 项符合「Spline」的源代码
代码结果 2,868
www.eeworm.com/read/229898/4727456
spline
#!/bin/sh
# next line is a comment in tcl \
exec wish "$0" ${1+"$@"}
package require Tkspline
########################################################################
# splinetest.tcl - a test of sp
www.eeworm.com/read/414769/11102486
for spline.for
SUBROUTINE spline(x,y,n,yp1,ypn,y2)
INTEGER n,NMAX
REAL yp1,ypn,x(n),y(n),y2(n)
PARAMETER (NMAX=500)
INTEGER i,k
REAL p,qn,sig,un,u(NMAX)
if (yp1.gt..99
www.eeworm.com/read/391726/8387476
txt spline.txt
procedure SPLINE(X:array of real;var Y:array of real;
N:integer; YP1, YPN:real; VAR Y2:array of real);
var
U:array[0..100] of real;
AAA,SIG,BBB,CCC,P,QN,UN:real;
www.eeworm.com/read/192256/8394382
txt spline.txt
procedure SPLINE(X:array of real;var Y:array of real;
N:integer; YP1, YPN:real; VAR Y2:array of real);
var
U:array[0..100] of real;
AAA,SIG,BBB,CCC,P,QN,UN:real;
www.eeworm.com/read/291235/8433696
cpp spline.cpp
#include "nr.h"
void NR::spline(Vec_I_DP &x, Vec_I_DP &y, const DP yp1, const DP ypn,
Vec_O_DP &y2)
{
int i,k;
DP p,qn,sig,un;
int n=y2.size();
Vec_DP u(n-1);
if (yp1 > 0.99e30)
y
www.eeworm.com/read/389065/8550756
cpp spline.cpp
void spline(double x[], double y[], int n, double yp1,double ypn, double y2[])
{
double u[100],aaa,sig,p,bbb,ccc,qn,un;
int i,k;
if( yp1 > 9.9e+29 )
{
y2[1] = 0;
u[1]
www.eeworm.com/read/431754/8655915
cpp spline.cpp
void spline(double x[], double y[], int n, double yp1,double ypn, double y2[])
{
double u[100],aaa,sig,p,bbb,ccc,qn,un;
int i,k;
if( yp1 > 9.9e+29 )
{
y2[1] = 0;
u[1]
www.eeworm.com/read/431553/8667859
m spline.m
%三弯矩三次样条插值,第一类边界条件
clear;
x=0:pi/20:pi/2; %x为向量,全部的插值节点;
y=sin(x); %y为向量,插值节点处的函数值;
y_d1=cos(0);y_dn=cos(pi/2);
www.eeworm.com/read/387489/8673018
txt spline.txt
procedure SPLINE(X:array of real;var Y:array of real;
N:integer; YP1, YPN:real; VAR Y2:array of real);
var
U:array[0..100] of real;
AAA,SIG,BBB,CCC,P,QN,UN:real;
www.eeworm.com/read/387415/8685402