/*本文档用于计算《企业融资模式、金融市场脆弱性及变动特征》一文FFI-股票指数计算。（FSIS）
  使用【当期应付净负债】科目度量债务。
   【短期借款+交易性金融负债+衍生金融负债+一年到期的非流动负债】+【应付账款-应收账款】+【应付票据-应收票据】+【其他流动负债-其他流动资产】+【其他应付款小计-其他应收款小计】
其中，【其他应付款小计】=应交税费+应付职工薪酬+应付利息+应付股利+其他应付款
       【其他应收款小计】=应收利息净额+应收股利净额+其他应收款净额
   FSI=1 对冲型融资
   FSI=2 投机型融资
   FSI=3 庞氏型融资
   
股票 FFI计算说明：
    对冲型融资：ONCF -( Investment +( DP+ IntDIV ) )>=0 条件1
	投机性融资：ONCF -( Investment +( DP+ IntDIV ) )<0  条件1
	            & ONCF -( DP+ IntDIV )+ CA>=0 条件2
	庞氏型融资：ONCF -( DP+ IntDIV )+ CA<0 条件2 */

*股票FSI计算！：“FSI-股票.dta”
*生成FSI——股票的判断条件1
generate long condition1 = ONCF -( Investment +( DP+ IntDIV ) )
drop if IntDIV == .

*生成FSI——股票的判断条件2
 generate long condition2 = ONCF -( DP+ IntDIV )+ CA

*生成FSIS=1，条件1>=0为对冲型融资
generate long FSIS = 1 if condition1 >= 0

*对投机性融资、庞氏型融资分别赋值2、3
replace FSIS = 3 if condition2 < 0 
replace FSIS = 2 if condition1 < 0 & condition2 >= 0 


codebook FSIS


codebook FSIS if Year == 2019


/*债券 FSI计算说明：
    对冲型融资：ONCF -( INVESTMENT +( DP+ INTDIV ) )>=0 条件1
	投机性融资：ONCF -( INVESTMENT +( DP+ INTDIV ) )<0  条件1
	            & ONCF -( DP+ INTDIV )+ CA>=0 条件2
	庞氏型融资：ONCF -( DP+ INTDIV )+ CA<0 条件2 */
	
*债券FSI计算！：“FSI-债券.dta”
*生成FSI——债券的判断条件1
generate long condition1 = ONCF -( INVESTMENT +( DP+ INTDIV ) )

*生成FSI——债券的判断条件2
generate long condition2 = ONCF -( DP+ INTDIV )+ CA

*生成FSIB=1，条件1>=0为对冲型融资

generate long FSIB = 1 if condition1 >= 0

*对投机性融资、庞氏型融资分别赋值2、3

replace FSIB = 3 if condition2 < 0
replace FSIB = 2 if condition1 < 0 & condition2 >= 0
codebook FSIB
codebook FSIB if Year == 2019


/*用于检验2005-2019年股票市场对冲型与庞氏型融资占比是否存在显著差异*/

//剔除样本（投机型融资样本删掉）
drop if FFIS == 2

//生成虚拟变量，对冲型（HEDGE) 庞氏型（PONZI）
generate long HEDGE = 1 if FFIS == 1 
replace HEDGE = 0 if HEDGE == .
generate long PONZI = 1 if FFIS == 3 
replace PONZI = 0 if PONZI == .

//配对样本T-Test
ttest HEDGE == PONZI, level(99)

//2019年的情况 
drop if Year < 2019

//配对样本T-Test
ttest HEDGE == PONZI, level(99)

//检验2005-2019年股票市场庞氏型与对冲型企业的T-Q值存在显著差异（使用市值.dta）
 drop if FFIS == 2

//方差齐次性检验
sdtest TQ, by(FFIS) level(99)

//T-Test
ttest TQ, by(FFIS) unequal level(99)

//看2019年的情况
drop if Year < 2019

//方差齐次性检验
sdtest TQ, by(FFIS) level(99)

//T-Test
ttest TQ, by(FFIS) unequal level(99)

/*用于检验2005-2019年股票市场对冲型与庞氏型融资占比是否存在显著差异*/

//剔除样本（投机型融资样本删掉）
 drop if FFIB == 2
generate long HEDGE = 1 if FFIB == 1
replace HEDGE = 0 if HEDGE == .
generate long PONZI = 1 if FFIB == 3
replace PONZI = 0 if PONZI == .

//T-Test
ttest HEDGE == PONZI, level(99)

//2019年
drop if date < 2019
ttest HEDGE == PONZI, level(99)

//公司债
drop if GSBOND == 0
ttest HEDGE == PONZI, level(99)
drop if date < 2019
ttest HEDGE == PONZI, level(99)

//企业债
drop if QYBOND ==0
ttest HEDGE == PONZI, level(99)
drop if date < 2019
ttest HEDGE == PONZI, level(99)


/*中国股市与债市脆弱性指数（FSI）及庞氏型融资占比的对比检验*/

//股市债市FSI的T-Test
sdtest FSIS == FSIB, level(99)
ttest FSIS == FSIB, unpaired unequal level(99)

//2019年度
drop if Year < 2019
sdtest FSIS == FSIB, level(99)
ttest FSIS == FSIB, unpaired unequal level(99)

//股市债市庞氏型融资-变量生成
generate double PONZIS = 1 if FFIS == 3
replace PONZIS =0 if FFIS == 1
replace PONZIS =0 if FFIS == 2

generate double PONZIB = 1 if FFIB == 3
replace PONZIB =0 if FFIB == 1
replace PONZIB =0 if FFIB == 2

//股市债市庞氏型融资占比T-Test
sdtest PONZIS == PONZIB, level(99)
ttest PONZIS == PONZIB, unpaired level(99)

//2019年度
drop if Year < 2019
sdtest PONZIS == PONZIB, level(99)
ttest PONZIS == PONZIB, unpaired level(99)
