發表文章

D11017325田庭聿期末考

圖片
#今天要拷貝到vs code 寫上自己名字 title = ["日期", "收盤", "決策","部位"] rows = [] rows.append(title) rows.append(["2024/6/17",15.1,0,0]) rows.append(["2024/6/18",15.8,0,0]) rows.append(["2024/6/19",18.1,1,1]) rows.append(["2024/6/20",19.2,0,1]) rows.append(["2024/6/21",20.1,0,1]) for i in range(len(rows)): print(rows[i]) for i in range(1, len(rows)): if rows[i][3]==1:#如果做多 gain = rows[i][1]-rows[i-1][1] rows[i].append(gain)#增加一個欄位今天損益 elif rows[i][3]==-1:#如果做空 gain = rows[i-1][1]-rows[i][1]#昨天扣除今天 rows[i].append(gain) else: rows[i].append(0.0) for i in range(1,len(rows)): print(rows[i])  a 2010年美國股市閃崩事件 [ 編輯 ] 7 種語言 條目 討論 臺灣正體 閱讀 編輯 檢視歷史 工具 閃崩當日道瓊指數 2010年美國股市閃崩事件 [1] [2] [3] ，簡稱 2010年閃崩事件 ，是發生於2010年5月6日的一次美國股票市場 崩潰事件 ，開始於美國東部時間當日下午2時32份，持續了大約36分鐘。 道瓊工業平均指數 在這段時間內由10,460點開始急劇下跌，在五分鐘之內跌至9,870點附近，不過幾分鐘後又迅速回升。事件源於位於英國的一位名叫納文德·辛·薩勞（Navinder Singh Sarao）的交易員通過 高頻交易 短時間...
張貼留言
閱讀完整內容

田庭聿time套件

圖片
from tkinter import * #下載程式碼,從tkinter輸入所有函式 import time x = ['\U0001F644','\U0001F602','\U0001F608','屎','尿']#定義一個串列 y = [] #追蹤特定視窗用途,尚未使用 for i in range(5): window = Tk() #建構視窗,名為window建構一個房子 window.title('田庭聿python第%d視窗' % (i+1)) window.geometry('300x300+%d+%d' % (300*i,50*i)) b1=Label(window,text=x[i],font='Arial 250 bold').pack() time.sleep(1) window.update() y.append(window)#追蹤特定視窗用途,尚未使用 window.mainloop()
張貼留言
閱讀完整內容

田庭聿vs code期中考

圖片
import csv #輸入csv套件comma separated value file = open('SPY.CSV','r') #打開下載的檔案SPY.CSV,模式是r讀取, csvreader = csv.reader(file) #將檔案讀入變數csvreader header, rows = [], [] #宣告空白串列(陣列,清單) header = next(csvreader) #串列header儲存檔案第一列 for row in csvreader: #檔案接續逐列附加append於rows串列 rows.append(row) file.close() #關閉檔案 header.append('MA20') #appendix附錄,為header串列list新曾元素 header.append('部位') #print('印出前十列') #print(header) for i in range(20): rows[i].append(rows[i][5]) for i in range(21,len(rows)): sum20 = 0.0 #實數=浮點數 for j in range(i-20, i): sum20 += float(rows[j][5]) rows[i].append(sum20/20) for i in range(len(rows)-3,len(rows)): #length的命令len(rows) print('第',i+1,'列',rows[i]) file = open('SPYW.CSV','w',newline='') w = csv.writer(file) #寫入檔案 VScode是IDE(程式)整合開發環境 w.writerow(header) #第5列將檔案欄位名稱列header w.writerows(rows) #第7列將檔案內...
張貼留言
閱讀完整內容

田庭聿-樞紐分析-上市公司簽證會計事務所

圖片
資料來源公開資訊觀測站 四大會計事務所 會 計師事務所 簽證的上市公司數 勤業眾信聯合會計師事務所 356 資誠聯合會計師事務所 214 安侯建業聯合會計師事務所 207 安永聯合會計師事務所 90 電子零組件業+B4:U4 97 其他 78 半導體業 77 光電業 68 電腦及週邊設備業 60 建材營造 53 電機機械 47 紡織纖維 43 通信網路業 42 其他電子業 40 汽車工業 35 生技醫療業 34 金融保險業 34 鋼鐵工業 31 化學工業 29 航運業 23 食品工業 22 貿易百貨 22 塑膠工業 21 電子通路業 20
張貼留言
閱讀完整內容

SVG

圖片
EXCEL VBA Sub 田庭聿() ActiveSheet.Shapes.AddShape(msoShapeOval, 200, 200, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 240, 250, 40, 20).Fill.ForeColor.RGB = RGB(0, 0, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 320, 250, 40, 20).Fill.ForeColor.RGB = RGB(0, 0, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 332.5, 250, 15, 20).Fill.ForeColor.RGB = RGB(255, 255, 255) ActiveSheet.Shapes.AddShape(msoShapeOval, 252.5, 250, 15, 20).Fill.ForeColor.RGB = RGB(255, 255, 255) ActiveSheet.Shapes.AddShape(msoShapeRectangle, 290, 270, 20, 40).Fill.ForeColor.RGB = RGB(255, 0, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 250, 325, 100, 40).Fill.ForeColor.RGB = RGB(255, 100, 50) ActiveSheet.Shapes.AddShape(msoShapeOval, 225, 200, 150, 30).Fill.ForeColor.RGB = RGB(100, 200, 225) '使用中式算....msoShapeOval,左,上,寬,高) End Sub
張貼留言
閱讀完整內容

田庭聿EXCEL基本功能,VBA巨集程式設計

圖片
  畫圖VBA程式碼 'Dr Ian O'Connor, CPA. - located in Victoria, Australia. '2021/11/29劉任昌指導我從 Option Explicit Const topleft As String = "C5" ' anchor cell Const diam As Integer = 180 ' points Dim Shp As Shape '宣告dim 變數Shp是圖形Shape global Sub xlfAddCircle1() Dim TLCleft As Double 'local variables區域變數 Dim TLCtop As Double TLCleft = Range(topleft).Left TLCtop = Range(topleft).Top Set Shp = ActiveSheet.Shapes.AddShape(Type:=msoShapeOval, _ Left:=TLCleft, Top:=TLCtop, _ Width:=diam, Height:=diam) With Shp .Fill.Visible = msoFalse .Line.Weight = 10 .Line.ForeColor.Brightness = 0.4 .ThreeD.BevelTopType = msoBevelCircle End With End Sub Sub 劉任昌超級臭屁() Dim x As Double '宣告 x 是倍精度double Dim y As Double '宣告 y 是倍精度double Dim i As Integer '選告整數i For i =...
張貼留言
閱讀完整內容

金一丙田庭聿清單方塊 Listbox 與核取方塊 Chickbox

圖片
期中考改良 非巢狀條件 if (r) present("#FF0000"); if (g) present("#00FF00"); if (b) present("#0000FF"); 巢狀條件 if (r) present("#FF0000"); else if (g) present("#00FF00"); else if (b) present("#0000FF"); 期中考 喜愛 沒意見 討厭 紅色 綠色 藍色 粗體 輸出 田庭聿心得
張貼留言
閱讀完整內容