使用fzero出现的问题

lupkpu9

程序如下function P=Price(V,r,vol_i,t00,t_i,K_i,init)
format long
t=t_i;
9 V' k3 `$ C* J: AK=K_i;
/ E, d" u4 W8 a& s8 u  fvol=vol_i;
7 k( ~/ z8 q8 v+ kn=length(t);% computes the dimension of the problem
+ V* M9 s' ^9 Q2 @+ vqq=init;
, a( E5 W4 \. PC=zeros(n,1);
initial=K(n,1)*qq;
6 F1 W: [8 s; R9 ]$ g2 {9 k( tVbar=zeros(n,1);
6 ]8 O/ X: T1 MN=zeros(n,n);
7 L6 |/ }, v* Y0 U3 F5 D! ?1 n( n3 TN1=zeros(n,n);
a=zeros(n,n);
" D6 y  M4 K) a0 va0=-inf.* ones(n,n);
  Q, X8 @! `1 C$ B4 F& s9 tb=zeros(n,n);
: `0 F4 n0 k1 l1 S* w2 L7 G5 C4 S0 ]b0=-inf.* ones(n,n);
h=zeros(n,n);
" N: Y  V0 R  Y4 ^! Thl=zeros(n,n);
! P8 p" \* P8 ?9 h) ?2 n$ \, RVbar(n,1)=K(n,1);
" z2 i& z) j0 ?* \for s=n:-1:2
   current=s-1;
$ l6 i  S. \- c, ~   t0=t(current,1);
6 p1 M, z) {( C/ }. ?0 ~   options=optimset('Display','off');
/ W+ c( p( S6 P   Vbar(s-1,1)=fzero('@Price_ss',initial,options,s,Vbar,r,vol,t0,t,K);   %在这一步出错
   initial=Vbar(s-1,1)*qq;
[c1,h1,al,b1,N1,w2,wl]=Price_s(V,s,Vbar,r,vol,t0,t,K);
C(s,1)=c1;
h(s,=hl;
' b! o! t; a4 G. sa(s,=al;
b(s,=b1;
. |& s% `. Y) fN(s,:)=N1;
5 s& i& m' j0 s" a  |end
k=1;
[c2,h2,a2,b2,N2,w4,w3]=Price_s(V,k,Vbar,r,vol,t00,t,K);
% g' {6 t4 ^, j# O* P9 IC(k,1)=c2;
, c. k1 g/ ], g1 \. bh(k,:)=h2;
a(k,:)=a2;
; ^  m+ W. L. w1 [. R' Z- qb(k,:)=b2;
N(k,:)=N2;
3 U0 Y+ M/ t5 T1 |4 R( H5 O1 BP=C(k,1);
1 b# \9 {. A6 Y+ E( T& S9 \

$ z, x. u; M" A9 p! x9 D, T报错
未定义与 'function_handle' 类型的输入参数相对应的运算符 '=='。
3 r, d: w% }4 I9 \/ D出错 fzero (line 314)
    if fx == 0
# v) Q# y1 s0 f2 K" `出错 Price (line 24)
4 n' t0 \4 d! l   Vbar(s-1,1)=fzero('@Price_ss',initial,options,s,Vbar,r,vol,t0,t,K);

4 ?2 g8 c) N0 w请大神指教
4 N2 V. Q/ O; l  z2 Z; J, b/ j( P

shuddkk

帮你顶一下

kekek

楼主发一下完整代码
; s! v7 ]+ ]0 z% K7 P+ d) z

zzz.dan

nkkopd

？？？？？？？？？？？？？？？？？？
" `" I; O- h3 h$ Z