?? market.m
字號:
#import "Market.h"#import "Firm.h"#import "CFactor.h"@implementation Market-createEnd {oldKappa = 0.0;lastEqPrice = 0;return self;}-copyModel: (id) mo {modelswarm = mo; return self;}-setAlpha: (double) a { alpha=a; return self;}-setBeta: (double) b { beta=b; return self;}-(double) getAlpha {return alpha;}-(double)getBeta {return beta;}-setC1: (double) cOne { mktFC = cOne;return self;}-(double)getOldKappa {return oldKappa;}-(double)EquilibriumPrice {double res;double parte1;double parte2;id obj;obj =[modelswarm getFirm];parte1 = ([obj getMonop] + [[modelswarm getCFactor] getCFQ]);parte2 = kappa * [obj getValD] * [[modelswarm getCFactor] getLastCF]; if (kappa<=-1E9){ res=0;} else {res = alpha - beta *parte1 +parte2;//if (res<0) res=alpha - beta * [[modelswarm getCFactor] getCFQ]; } eqPrice = res;return res;}-(double)getEquilibriumPrice {return eqPrice;}-(double)getLastEquilibriumPrice {return lastEqPrice;} -setKperc: (double) kperc1 {kperc = kperc1;//printf ('kperc equal to %d',kperc);return self;}-step {double temp;lastEqPrice = [self getEquilibriumPrice];temp = [self EquilibriumPrice];return self;}-updateK {double temp = 0.0;if (kperc<0) { temp = 1 + ((kperc/100) * (1 - [self dymamicKappaCappuccio])); } else if (kperc>0) { temp = 1 + ((kperc/100) * ([self dymamicKappaStar] -1)); } else if (kperc==0){ temp = 1; }if ([modelswarm getTime]==1) kMem = temp;if ([modelswarm getChoiceK] !=0) {oldKappa = kappa;kappa = temp;//printf ("kappa %f oldkappa %f var \n", kappa, oldKappa);//if ((kappa < -1E9) || (kappa >1E9)) kappa = kMem; } else // kappa costante{oldKappa = kMem;kappa = kMem;//printf ("kappa %f oldkappa %f const\n", kappa, oldKappa);} return self;}-(double)geteffe {double tm=0.0;tm = [[modelswarm getCFactor] getFF];return tm;}-(double)getK {return kappa;}// investimento in reputazione-setD: (double) di { reputationInvestment = di; return self;}// questo metodo mi calcola il prezzo di equilibrio-(double)getEqPrice: (double) cost { return (alpha+(beta*cost))/(2.0*beta);}//estremo inferiore dell'intervallo di stabilita' per il parametro k-(double)dymamicKappaCappuccio {double num;double den; num = (mktFC+beta) * (mktFC+ 2* beta);den = reputationInvestment * beta * [[modelswarm getCFactor] getFF];//printf (" kcapp num %f den %f res %f \n", num, den, (1-num/den));return (1 - num/den);}//estremo superiore dell'intervallo di stabilita' per il parametro k-(double)dymamicKappaStar {double num;double den;num = (mktFC +beta) * (mktFC + 2* beta) - [[modelswarm getCFactor] getFF] * beta * beta;den = reputationInvestment * beta * [[modelswarm getCFactor] getFF];//printf (" K starnum %f den %f res %f \n", num, den, (1+num/den));return (1 + num/den);}@end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -