fv(r,n,pv=0,pmt=0,type=0)/pv(r,n,fv=0,pmt=0,type=0):pmt dấu trừ
install.packages(“ggplot2”)
fv.annuity(r,n,pmt,type=0):đều hữu hạn(pmt dấu trừ)/pv.annuity(r,n,pmt,type=0):đều library(ggplot2)
hữu hạn(pmt dấu trừ)
ggplot(data = df2, aes(x = q)) +
fv.uneven(r,cf):không đều hữu hạn(cf dấu trừ)/pv.uneven(r,cf):không đều hhan(cf trừ)
geom_line(aes(y = FC, col = "FC")) +
fv.simple(r,n,pv):giá trị tương lai khoảng tiền(pv dấu trừ)/pv.simple(r,n,fv):một khoảng
geom_line(aes(y = VC, col = "VC")) + tiền(fv trừ)
geom_line(aes(y = TC, col = "TC")) +
discount.rate(n,pv,fv,pmt,type=0): i(pmt dấu trừ)/ pv.perpetuity(r,pmt,g=0,type=0):đều
geom_line(aes(y = TR, col = "TR")) + vô hạn
geom_segment(aes(x = BE, xend = BE, y = 0, yend = BE*P), linetype = "dashed") +
n.period(r,pv,fv,pmt,type=0):n(pmt dấu trừ)
geom_segment(aes(x = 0, xend = BE, y = BE*P, yend = BE*P), linetype = "dashed") +
pmt(r,n,pv,fv,type=0):a(fv dấu trừ)
geom_point(aes(x = BE, y= BE*P), colour = "black", size = 4) +
EIR(r,n=1,p=12,type=c(‘e’,‘p’))/ear(r,m)(kép)r=ik*k,m=k
annotate("text", x = BE, y = 0, label = paste("BEP q=", round(BE))) +
/Vn=V0*(1+n*i)=V0*(1+n*ik*k)/i=ik*k/I=V0*i*n
scale_color_manual(labels = c("FC", "TC", "TR", "VC"),
r: lãi suất i hoặc ik mỗi năm/lãi suất thực: 𝐢t=(It/(V0-Ct)*(360/n(số ngày))) (it mức lst) (It cp
values = c("FC" = "black", "TC" = "red", "TR" = "green", "VC" = "blue")) + thực tế trong tháng vay)
geom_ribbon(data = df2[df2$TC >= df2$TR, ], aes(x = q, ymin = TR, ymax = TC), fill =
n: số lần lãi suất r được cộng gộp trong năm "red", alpha = 0.15) +
p: số lần lãi suất tương đương được cộng gộp trong năm
geom_ribbon(data = df2[df2$TC <= df2$TR, ], aes(x = q, ymin = TC, ymax = TR), fill =
type: lãi suất tương đương (’e’, mặc định) áp dụng đối với lãi kép "green", alpha = 0.15) +
hoặc lãi suất tỷ lệ (’p’) áp dụng đối với lãi đơn
labs(title = "Diem hoan von", subtitle = "Vot tennis, Cong ty Maroca", x = "San luong", y =
"$", caption = "BEP", color = NULL) (1)install.packages("FinCal") (3)n=6 (4)P = 10 library(FinCal) i=0.005 VC_donvi =2 grid () Thêm grid lines r=0.08
V.0=100000000(gửi ngân hàng q=c(seq(0,20000,length.out axis () Thêm axis cf=c(-20,-22,-22,-25,-25) 100tr) = 11))
box () Thêm box chung quanh biểu đồ fv.uneven(r,cf) V.6=V.0*(1+i*n)(kỳ 6 tháng) FC=c(rep(100000,length(q)) legend Thêm ghi chú
library(FinCal): không gởi 5
V.6(gtr đạt đc cuối đợt đầu tư) ) arrows () Thêm mũi tên tháng sau rút ra I=V.0*i*n VC = VC_donvi * q
lines () Thêm đường thẳng r=0.005
I(số lãi vào cuối đợt đầu tư) TC=FC+VC points () Thêm điểm n=14
Lãi suất thay đổi(lãi suất tb,tổng TR=P*q
abline (a, b) Thêm đường biểu diễn (a = intercept, b = slope, m=5 số tiền df=data.frame(q,FC, VC,
abline (h or v) h = horizontal, v = vertical) pmt=-2000000 (5)n=c(6/12,3/12,4/12) TC, TR)
segments () Thêm line segment(s) giữa các điểm fv.simple(r,m,- i=c(0.08,0.1,0.12) Margin = P - VC_donvi
polygon (x,y) Thêm polygon xác định bởi vector x và y fv.annuity(r,n,pmt,type=0)) average.i=sum(i*n)/sum(n) BE = FC[1]/Margin
text() Thêm chữ trong biểu đồ (2)i=0.06:cấp số cộng average.i(lãi suất trb) White màu trắng.
Kí hiệu điểm vẽ (plotting character): pch n=10 V.0=100000000 Blue màu xanh biển.
Dạng đường (line type): lty pmt=-1 V.n=V.0*(1+average.i*sum(n)) Green màu xanh lá cây. 0 "blank” a=20000000
V.n(tổng số tiền phải trả) Yellow màu vàng. 1 "solid" liền r=5000000
Biểu đồ cột (Bar chart) barplot() Orange màu da cam. 2 "dashed" đứt nét ngắn fv=((a+r/i)*fv
Biểu đồ hộp (Box & Whisker Red màu đỏ. 3 "dotted" chấm (i,n,pv=0,pmt,type=0))-n*r/i Plot) boxplot() Pink màu hồng.
4 "dotdash" chấm gạch chấm fv
Biểu đồ phân phối tần suất Purple màu tím. 5 "longdash" đứt dài fv*(1+i)^-n: gtr hiện tại (Histogram) hist() Gray màu xám. 6 "twodash" %% chia lấy phần dư
Biểu đồ “tán xạ” (Scatter Plot) Black màu đen. %/% chia lấy phần nguyên plot() Brown màu nâu. != khác
Biểu đồ tròn (Pie chart) pie() Silver màu bạc. A&B A và B
A&&B cả A và B đúng thì đúng
C: Giá gốc hay nguyên giá của tài sản
Công ty ABC mua một xe hơi, dự kiến sử dụng trong 4 năm trị giá 500 triệu đồng. Dự kiến
n: Vòng đời hữu dụng của tài sản
giá trị thu hồi (bán thanh lý) sau 4 năm là 40 triệu đồng.
BV t : Giá trị sổ sách tại cuối năm t C = 500
D t : Mức khấu hao trong năm n = 4
AD t : Khấu hao tích lũy tại cuối năm t SV = 40 SV: Giá trị tận dụng D = SLN(C,SV,n) Dt=(C-SV)/n
Lập một lịch khấu hao cho suốt vòng đời hữu dụng tài sản ADt=t*D=(t*(C-SV)/n) YEAR = c(1:n) BVt=C-(t*D)=C-(t*(C-SV)/n) BV_DK = C-D*(YEAR-1) BVt=C-Adt Dt =c( rep(D, length(YEAR))) BVt=BVt-1 -Dt AD_t = YEAR*D_t
Công ty A mua 01 TSCĐ (mới 100%) với giá ghi trên hóa đơn là 119 triệu đồng, chiết khấu BV-CK = C - AD_t
mua hàng là 05 triệu đồng, chi phí vận chuyển là 03 triệu đồng, chi phí lắp đặt, chạy thử là
DS = data.frame(YEAR, BV_DK, D_t, AD_t, BV_CK)
03 triệu đồng.Biết rằng TSCĐ có tuổi thọ kỹ thuật là 12 năm, thời gian trích khấu hao
install.packages(“ggplot2”)
TSCĐ dự kiến là 10 năm.Yêu cầu: Tính mức khấu hao hàng năm (theo phương pháp khấu library(ggplot2) hao đường thẳng).
ggplot(data = DS, aes(x = YEAR)) +
(1) install.packages(“DescTools”)
geom_line(aes(y = D_t, col = “D-t)) + library(DescTools)
geom_line(aes(y = AD_t, col = “AD_t”)) + C = 119-5+3+3
geom_line(aes(y = BV_CK, col = “BV_CK”)) + n = 10
scale_color_manual(labels = c(“D_t”, “AD_t”, “BV_CK”), SV = 0
values = c(“D_t” = “blue”, “AD_t” = “red”, “BV_CK” = “green”)) + D= SLN(C,SV,n)
labs(title = “Do thi khau hao”, subtitle = “Xe hoi, Cong ty ABC”, x = “Nam”, y = “trieu =>kh 12tr
dong”,caption = “KH”, color = NULL)
(tiếp theo) Sau 05 năm sử dụng, DN nâng cấp TSCĐ với tổng chi phí là 30 triệu đồng, thời
gian sử dụng được đánh giá lại là 06 năm (tăng 01 năm so với thời gian sử dụng đã đăng ký
ban đầu).Yêu cầu: Xác định mức trích khấu hao cho các năm còn lại? (theo phương pháp khấu hao đườngthẳng). C = 120+30 AD = 12*5 BV = C-AD n = 6 SV = 0 D = SLN(BV,SV,n)